home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / QuickTimeComponents.p < prev    next >
Text File  |  1996-05-01  |  139KB  |  3,592 lines
  1. {
  2.      File:        QuickTimeComponents.p
  3.  
  4.      Contains:    QuickTime Interfaces.
  5.  
  6.      Version:    Technology:    QuickTime 2.1
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT QuickTimeComponents;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __QUICKTIMECOMPONENTS__}
  28. {$SETC __QUICKTIMECOMPONENTS__ := 1}
  29.  
  30. {$I+}
  31. {$SETC QuickTimeComponentsIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __COMPONENTS__}
  35. {$I Components.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __IMAGECOMPRESSION__}
  38. {$I ImageCompression.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __MOVIES__}
  41. {$I Movies.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __QUICKDRAW__}
  44. {$I Quickdraw.p}
  45. {$ENDC}
  46. {$IFC UNDEFINED __VIDEO__}
  47. {$I Video.p}
  48. {$ENDC}
  49. {$IFC UNDEFINED __MEMORY__}
  50. {$I Memory.p}
  51. {$ENDC}
  52. {$IFC UNDEFINED __SOUND__}
  53. {$I Sound.p}
  54. {$ENDC}
  55.  
  56. {$PUSH}
  57. {$ALIGN MAC68K}
  58. {$LibExport+}
  59.  
  60. {$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
  61.  
  62. CONST
  63.     clockComponentType            = 'clok';
  64.     systemTickClock                = 'tick';                        {  subtype: 60ths since boot         }
  65.     systemSecondClock            = 'seco';                        {  subtype: seconds since 1904         }
  66.     systemMillisecondClock        = 'mill';                        {  subtype: 1000ths since boot         }
  67.     systemMicrosecondClock        = 'micr';                        {  subtype: 1000000ths since boot     }
  68.  
  69.     kClockRateIsLinear            = 1;
  70.     kClockImplementsCallBacks    = 2;
  71.  
  72. { * These are Clock procedures * }
  73. FUNCTION ClockGetTime(aClock: ComponentInstance; VAR out: TimeRecord): ComponentResult;
  74.     {$IFC NOT GENERATINGCFM}
  75.     INLINE $2F3C, $0004, $0001, $7000, $A82A;
  76.     {$ENDC}
  77. FUNCTION ClockNewCallBack(aClock: ComponentInstance; tb: TimeBase; callBackType: INTEGER): QTCallBack;
  78.     {$IFC NOT GENERATINGCFM}
  79.     INLINE $2F3C, $0006, $0002, $7000, $A82A;
  80.     {$ENDC}
  81. FUNCTION ClockDisposeCallBack(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  82.     {$IFC NOT GENERATINGCFM}
  83.     INLINE $2F3C, $0004, $0003, $7000, $A82A;
  84.     {$ENDC}
  85. FUNCTION ClockCallMeWhen(aClock: ComponentInstance; cb: QTCallBack; param1: LONGINT; param2: LONGINT; param3: LONGINT): ComponentResult;
  86.     {$IFC NOT GENERATINGCFM}
  87.     INLINE $2F3C, $0010, $0004, $7000, $A82A;
  88.     {$ENDC}
  89. FUNCTION ClockCancelCallBack(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  90.     {$IFC NOT GENERATINGCFM}
  91.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  92.     {$ENDC}
  93. FUNCTION ClockRateChanged(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  94.     {$IFC NOT GENERATINGCFM}
  95.     INLINE $2F3C, $0004, $0006, $7000, $A82A;
  96.     {$ENDC}
  97. FUNCTION ClockTimeChanged(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  98.     {$IFC NOT GENERATINGCFM}
  99.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  100.     {$ENDC}
  101. FUNCTION ClockSetTimeBase(aClock: ComponentInstance; tb: TimeBase): ComponentResult;
  102.     {$IFC NOT GENERATINGCFM}
  103.     INLINE $2F3C, $0004, $0008, $7000, $A82A;
  104.     {$ENDC}
  105. FUNCTION ClockStartStopChanged(aClock: ComponentInstance; cb: QTCallBack; startChanged: BOOLEAN; stopChanged: BOOLEAN): ComponentResult;
  106.     {$IFC NOT GENERATINGCFM}
  107.     INLINE $2F3C, $0008, $0009, $7000, $A82A;
  108.     {$ENDC}
  109. FUNCTION ClockGetRate(aClock: ComponentInstance; VAR rate: Fixed): ComponentResult;
  110.     {$IFC NOT GENERATINGCFM}
  111.     INLINE $2F3C, $0004, $000A, $7000, $A82A;
  112.     {$ENDC}
  113.  
  114. CONST
  115.     kClockGetTimeSelect            = $01;
  116.     kClockNewCallBackSelect        = $02;
  117.     kClockDisposeCallBackSelect    = $03;
  118.     kClockCallMeWhenSelect        = $04;
  119.     kClockCancelCallBackSelect    = $05;
  120.     kClockRateChangedSelect        = $06;
  121.     kClockTimeChangedSelect        = $07;
  122.     kClockSetTimeBaseSelect        = $08;
  123.     kClockStartStopChangedSelect = $09;
  124.     kClockGetRateSelect            = $0A;
  125.  
  126. {
  127.     General Sequence Grab stuff
  128. }
  129.  
  130. TYPE
  131.     SeqGrabComponent                    = ComponentInstance;
  132.     SGChannel                            = ComponentInstance;
  133.  
  134. CONST
  135.     SeqGrabComponentType        = 'barg';
  136.     SeqGrabChannelType            = 'sgch';
  137.     SeqGrabPanelType            = 'sgpn';
  138.     SeqGrabCompressionPanelType    = 'cmpr';
  139.     SeqGrabSourcePanelType        = 'sour';
  140.  
  141.     seqGrabToDisk                = 1;
  142.     seqGrabToMemory                = 2;
  143.     seqGrabDontUseTempMemory    = 4;
  144.     seqGrabAppendToFile            = 8;
  145.     seqGrabDontAddMovieResource    = 16;
  146.     seqGrabDontMakeMovie        = 32;
  147.     seqGrabPreExtendFile        = 64;
  148.     seqGrabDataProcIsInterruptSafe = 128;
  149.     seqGrabDataProcDoesOverlappingReads = 256;
  150.  
  151.  
  152. TYPE
  153.     SeqGrabDataOutputEnum                = LONGINT;
  154.  
  155. CONST
  156.     seqGrabRecord                = 1;
  157.     seqGrabPreview                = 2;
  158.     seqGrabPlayDuringRecord        = 4;
  159.  
  160.  
  161. TYPE
  162.     SeqGrabUsageEnum                    = LONGINT;
  163.  
  164. CONST
  165.     seqGrabHasBounds            = 1;
  166.     seqGrabHasVolume            = 2;
  167.     seqGrabHasDiscreteSamples    = 4;
  168.  
  169.  
  170. TYPE
  171.     SeqGrabChannelInfoEnum                = LONGINT;
  172.     SeqGrabFrameInfoPtr = ^SeqGrabFrameInfo;
  173.     SeqGrabFrameInfo = RECORD
  174.         frameOffset:            LONGINT;
  175.         frameTime:                LONGINT;
  176.         frameSize:                LONGINT;
  177.         frameChannel:            SGChannel;
  178.         frameRefCon:            LONGINT;
  179.     END;
  180.  
  181.  
  182. CONST
  183.     grabPictOffScreen            = 1;
  184.     grabPictIgnoreClip            = 2;
  185.     grabPictCurrentImage        = 4;
  186.  
  187.     sgFlagControlledGrab        = $01;
  188.  
  189.  
  190. TYPE
  191.     SGDataProcPtr = ProcPtr;  { FUNCTION SGData(c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT; chRefCon: LONGINT; time: TimeValue; writeType: INTEGER; refCon: LONGINT): OSErr; }
  192.  
  193.     SGDataUPP = UniversalProcPtr;
  194.     SGDeviceNamePtr = ^SGDeviceName;
  195.     SGDeviceName = RECORD
  196.         name:                    Str63;
  197.         icon:                    Handle;
  198.         flags:                    LONGINT;
  199.         refCon:                    LONGINT;
  200.         reserved:                LONGINT;                                {  zero }
  201.     END;
  202.  
  203.  
  204. CONST
  205.     sgDeviceNameFlagDeviceUnavailable = $01;
  206.  
  207.  
  208. TYPE
  209.     SGDeviceListRecordPtr = ^SGDeviceListRecord;
  210.     SGDeviceListRecord = RECORD
  211.         count:                    INTEGER;
  212.         selectedIndex:            INTEGER;
  213.         reserved:                LONGINT;                                {  zero }
  214.         entry:                    ARRAY [0..0] OF SGDeviceName;
  215.     END;
  216.  
  217.     SGDeviceListPtr                        = ^SGDeviceListRecord;
  218.     SGDeviceList                        = ^SGDeviceListPtr;
  219.  
  220. CONST
  221.     sgDeviceListWithIcons        = $01;
  222.     sgDeviceListDontCheckAvailability = $02;
  223.  
  224.     seqGrabWriteAppend            = 0;
  225.     seqGrabWriteReserve            = 1;
  226.     seqGrabWriteFill            = 2;
  227.  
  228.     seqGrabUnpause                = 0;
  229.     seqGrabPause                = 1;
  230.     seqGrabPauseForMenu            = 3;
  231.  
  232.     channelFlagDontOpenResFile    = 2;
  233.     channelFlagHasDependency    = 4;
  234.  
  235.  
  236. TYPE
  237.     SGModalFilterProcPtr = ProcPtr;  { FUNCTION SGModalFilter(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refCon: LONGINT): BOOLEAN; }
  238.  
  239.     SGModalFilterUPP = UniversalProcPtr;
  240.  
  241. CONST
  242.     sgPanelFlagForPanel            = 1;
  243.  
  244.     seqGrabSettingsPreviewOnly    = 1;
  245.  
  246.  
  247. TYPE
  248.     SGOutputRecordPtr = ^SGOutputRecord;
  249.     SGOutputRecord = RECORD
  250.         data:                    ARRAY [0..0] OF LONGINT;
  251.     END;
  252.  
  253.     SGOutput                            = ^SGOutputRecord;
  254.  
  255. CONST
  256.     channelPlayNormal            = 0;
  257.     channelPlayFast                = 1;
  258.     channelPlayHighQuality        = 2;
  259.     channelPlayAllData            = 4;
  260.  
  261. FUNCTION SGInitialize(s: SeqGrabComponent): ComponentResult;
  262.     {$IFC NOT GENERATINGCFM}
  263.     INLINE $2F3C, $0000, $0001, $7000, $A82A;
  264.     {$ENDC}
  265. FUNCTION SGSetDataOutput(s: SeqGrabComponent; {CONST}VAR movieFile: FSSpec; whereFlags: LONGINT): ComponentResult;
  266.     {$IFC NOT GENERATINGCFM}
  267.     INLINE $2F3C, $0008, $0002, $7000, $A82A;
  268.     {$ENDC}
  269. FUNCTION SGGetDataOutput(s: SeqGrabComponent; VAR movieFile: FSSpec; VAR whereFlags: LONGINT): ComponentResult;
  270.     {$IFC NOT GENERATINGCFM}
  271.     INLINE $2F3C, $0008, $0003, $7000, $A82A;
  272.     {$ENDC}
  273. FUNCTION SGSetGWorld(s: SeqGrabComponent; gp: CGrafPtr; gd: GDHandle): ComponentResult;
  274.     {$IFC NOT GENERATINGCFM}
  275.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  276.     {$ENDC}
  277. FUNCTION SGGetGWorld(s: SeqGrabComponent; VAR gp: CGrafPtr; VAR gd: GDHandle): ComponentResult;
  278.     {$IFC NOT GENERATINGCFM}
  279.     INLINE $2F3C, $0008, $0005, $7000, $A82A;
  280.     {$ENDC}
  281. FUNCTION SGNewChannel(s: SeqGrabComponent; channelType: OSType; VAR ref: SGChannel): ComponentResult;
  282.     {$IFC NOT GENERATINGCFM}
  283.     INLINE $2F3C, $0008, $0006, $7000, $A82A;
  284.     {$ENDC}
  285. FUNCTION SGDisposeChannel(s: SeqGrabComponent; c: SGChannel): ComponentResult;
  286.     {$IFC NOT GENERATINGCFM}
  287.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  288.     {$ENDC}
  289. FUNCTION SGStartPreview(s: SeqGrabComponent): ComponentResult;
  290.     {$IFC NOT GENERATINGCFM}
  291.     INLINE $2F3C, $0000, $0010, $7000, $A82A;
  292.     {$ENDC}
  293. FUNCTION SGStartRecord(s: SeqGrabComponent): ComponentResult;
  294.     {$IFC NOT GENERATINGCFM}
  295.     INLINE $2F3C, $0000, $0011, $7000, $A82A;
  296.     {$ENDC}
  297. FUNCTION SGIdle(s: SeqGrabComponent): ComponentResult;
  298.     {$IFC NOT GENERATINGCFM}
  299.     INLINE $2F3C, $0000, $0012, $7000, $A82A;
  300.     {$ENDC}
  301. FUNCTION SGStop(s: SeqGrabComponent): ComponentResult;
  302.     {$IFC NOT GENERATINGCFM}
  303.     INLINE $2F3C, $0000, $0013, $7000, $A82A;
  304.     {$ENDC}
  305. FUNCTION SGPause(s: SeqGrabComponent; pause: ByteParameter): ComponentResult;
  306.     {$IFC NOT GENERATINGCFM}
  307.     INLINE $2F3C, $0002, $0014, $7000, $A82A;
  308.     {$ENDC}
  309. FUNCTION SGPrepare(s: SeqGrabComponent; prepareForPreview: BOOLEAN; prepareForRecord: BOOLEAN): ComponentResult;
  310.     {$IFC NOT GENERATINGCFM}
  311.     INLINE $2F3C, $0004, $0015, $7000, $A82A;
  312.     {$ENDC}
  313. FUNCTION SGRelease(s: SeqGrabComponent): ComponentResult;
  314.     {$IFC NOT GENERATINGCFM}
  315.     INLINE $2F3C, $0000, $0016, $7000, $A82A;
  316.     {$ENDC}
  317. FUNCTION SGGetMovie(s: SeqGrabComponent): Movie;
  318.     {$IFC NOT GENERATINGCFM}
  319.     INLINE $2F3C, $0000, $0017, $7000, $A82A;
  320.     {$ENDC}
  321. FUNCTION SGSetMaximumRecordTime(s: SeqGrabComponent; ticks: LONGINT): ComponentResult;
  322.     {$IFC NOT GENERATINGCFM}
  323.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  324.     {$ENDC}
  325. FUNCTION SGGetMaximumRecordTime(s: SeqGrabComponent; VAR ticks: LONGINT): ComponentResult;
  326.     {$IFC NOT GENERATINGCFM}
  327.     INLINE $2F3C, $0004, $0019, $7000, $A82A;
  328.     {$ENDC}
  329. FUNCTION SGGetStorageSpaceRemaining(s: SeqGrabComponent; VAR bytes: LONGINT): ComponentResult;
  330.     {$IFC NOT GENERATINGCFM}
  331.     INLINE $2F3C, $0004, $001A, $7000, $A82A;
  332.     {$ENDC}
  333. FUNCTION SGGetTimeRemaining(s: SeqGrabComponent; VAR ticksLeft: LONGINT): ComponentResult;
  334.     {$IFC NOT GENERATINGCFM}
  335.     INLINE $2F3C, $0004, $001B, $7000, $A82A;
  336.     {$ENDC}
  337. FUNCTION SGGrabPict(s: SeqGrabComponent; VAR p: PicHandle; {CONST}VAR bounds: Rect; offscreenDepth: INTEGER; grabPictFlags: LONGINT): ComponentResult;
  338.     {$IFC NOT GENERATINGCFM}
  339.     INLINE $2F3C, $000E, $001C, $7000, $A82A;
  340.     {$ENDC}
  341. FUNCTION SGGetLastMovieResID(s: SeqGrabComponent; VAR resID: INTEGER): ComponentResult;
  342.     {$IFC NOT GENERATINGCFM}
  343.     INLINE $2F3C, $0004, $001D, $7000, $A82A;
  344.     {$ENDC}
  345. FUNCTION SGSetFlags(s: SeqGrabComponent; sgFlags: LONGINT): ComponentResult;
  346.     {$IFC NOT GENERATINGCFM}
  347.     INLINE $2F3C, $0004, $001E, $7000, $A82A;
  348.     {$ENDC}
  349. FUNCTION SGGetFlags(s: SeqGrabComponent; VAR sgFlags: LONGINT): ComponentResult;
  350.     {$IFC NOT GENERATINGCFM}
  351.     INLINE $2F3C, $0004, $001F, $7000, $A82A;
  352.     {$ENDC}
  353. FUNCTION SGSetDataProc(s: SeqGrabComponent; proc: SGDataUPP; refCon: LONGINT): ComponentResult;
  354.     {$IFC NOT GENERATINGCFM}
  355.     INLINE $2F3C, $0008, $0020, $7000, $A82A;
  356.     {$ENDC}
  357. FUNCTION SGNewChannelFromComponent(s: SeqGrabComponent; VAR newChannel: SGChannel; sgChannelComponent: Component): ComponentResult;
  358.     {$IFC NOT GENERATINGCFM}
  359.     INLINE $2F3C, $0008, $0021, $7000, $A82A;
  360.     {$ENDC}
  361. FUNCTION SGDisposeDeviceList(s: SeqGrabComponent; list: SGDeviceList): ComponentResult;
  362.     {$IFC NOT GENERATINGCFM}
  363.     INLINE $2F3C, $0004, $0022, $7000, $A82A;
  364.     {$ENDC}
  365. {$ENDC}
  366. {$IFC FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED }
  367. FUNCTION SGAppendDeviceListToMenu(s: SeqGrabComponent; list: SGDeviceList; mh: MenuHandle): ComponentResult;
  368.     {$IFC NOT GENERATINGCFM}
  369.     INLINE $2F3C, $0008, $0023, $7000, $A82A;
  370.     {$ENDC}
  371. {$ENDC}
  372. {$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
  373. FUNCTION SGSetSettings(s: SeqGrabComponent; ud: UserData; flags: LONGINT): ComponentResult;
  374.     {$IFC NOT GENERATINGCFM}
  375.     INLINE $2F3C, $0008, $0024, $7000, $A82A;
  376.     {$ENDC}
  377. FUNCTION SGGetSettings(s: SeqGrabComponent; VAR ud: UserData; flags: LONGINT): ComponentResult;
  378.     {$IFC NOT GENERATINGCFM}
  379.     INLINE $2F3C, $0008, $0025, $7000, $A82A;
  380.     {$ENDC}
  381. FUNCTION SGGetIndChannel(s: SeqGrabComponent; index: INTEGER; VAR ref: SGChannel; VAR chanType: OSType): ComponentResult;
  382.     {$IFC NOT GENERATINGCFM}
  383.     INLINE $2F3C, $000A, $0026, $7000, $A82A;
  384.     {$ENDC}
  385. FUNCTION SGUpdate(s: SeqGrabComponent; updateRgn: RgnHandle): ComponentResult;
  386.     {$IFC NOT GENERATINGCFM}
  387.     INLINE $2F3C, $0004, $0027, $7000, $A82A;
  388.     {$ENDC}
  389. FUNCTION SGGetPause(s: SeqGrabComponent; VAR paused: Byte): ComponentResult;
  390.     {$IFC NOT GENERATINGCFM}
  391.     INLINE $2F3C, $0004, $0028, $7000, $A82A;
  392.     {$ENDC}
  393. FUNCTION SGSettingsDialog(s: SeqGrabComponent; c: SGChannel; numPanels: INTEGER; VAR panelList: Component; flags: LONGINT; proc: SGModalFilterUPP; procRefNum: LONGINT): ComponentResult;
  394.     {$IFC NOT GENERATINGCFM}
  395.     INLINE $2F3C, $0016, $0029, $7000, $A82A;
  396.     {$ENDC}
  397. FUNCTION SGGetAlignmentProc(s: SeqGrabComponent; alignmentProc: ICMAlignmentProcRecordPtr): ComponentResult;
  398.     {$IFC NOT GENERATINGCFM}
  399.     INLINE $2F3C, $0004, $002A, $7000, $A82A;
  400.     {$ENDC}
  401. FUNCTION SGSetChannelSettings(s: SeqGrabComponent; c: SGChannel; ud: UserData; flags: LONGINT): ComponentResult;
  402.     {$IFC NOT GENERATINGCFM}
  403.     INLINE $2F3C, $000C, $002B, $7000, $A82A;
  404.     {$ENDC}
  405. FUNCTION SGGetChannelSettings(s: SeqGrabComponent; c: SGChannel; VAR ud: UserData; flags: LONGINT): ComponentResult;
  406.     {$IFC NOT GENERATINGCFM}
  407.     INLINE $2F3C, $000C, $002C, $7000, $A82A;
  408.     {$ENDC}
  409. FUNCTION SGGetMode(s: SeqGrabComponent; VAR previewMode: BOOLEAN; VAR recordMode: BOOLEAN): ComponentResult;
  410.     {$IFC NOT GENERATINGCFM}
  411.     INLINE $2F3C, $0008, $002D, $7000, $A82A;
  412.     {$ENDC}
  413. FUNCTION SGSetDataRef(s: SeqGrabComponent; dataRef: Handle; dataRefType: OSType; whereFlags: LONGINT): ComponentResult;
  414.     {$IFC NOT GENERATINGCFM}
  415.     INLINE $2F3C, $000C, $002E, $7000, $A82A;
  416.     {$ENDC}
  417. FUNCTION SGGetDataRef(s: SeqGrabComponent; VAR dataRef: Handle; VAR dataRefType: OSType; VAR whereFlags: LONGINT): ComponentResult;
  418.     {$IFC NOT GENERATINGCFM}
  419.     INLINE $2F3C, $000C, $002F, $7000, $A82A;
  420.     {$ENDC}
  421. FUNCTION SGNewOutput(s: SeqGrabComponent; dataRef: Handle; dataRefType: OSType; whereFlags: LONGINT; VAR seqOutput: SGOutput): ComponentResult;
  422.     {$IFC NOT GENERATINGCFM}
  423.     INLINE $2F3C, $0010, $0030, $7000, $A82A;
  424.     {$ENDC}
  425. FUNCTION SGDisposeOutput(s: SeqGrabComponent; seqOutput: SGOutput): ComponentResult;
  426.     {$IFC NOT GENERATINGCFM}
  427.     INLINE $2F3C, $0004, $0031, $7000, $A82A;
  428.     {$ENDC}
  429. FUNCTION SGSetOutputFlags(s: SeqGrabComponent; seqOutput: SGOutput; whereFlags: LONGINT): ComponentResult;
  430.     {$IFC NOT GENERATINGCFM}
  431.     INLINE $2F3C, $0008, $0032, $7000, $A82A;
  432.     {$ENDC}
  433. FUNCTION SGSetChannelOutput(s: SeqGrabComponent; c: SGChannel; seqOutput: SGOutput): ComponentResult;
  434.     {$IFC NOT GENERATINGCFM}
  435.     INLINE $2F3C, $0008, $0033, $7000, $A82A;
  436.     {$ENDC}
  437. FUNCTION SGGetDataOutputStorageSpaceRemaining(s: SeqGrabComponent; seqOutput: SGOutput; VAR space: LONGINT): ComponentResult;
  438.     {$IFC NOT GENERATINGCFM}
  439.     INLINE $2F3C, $0008, $0034, $7000, $A82A;
  440.     {$ENDC}
  441. {
  442.     calls from Channel to seqGrab
  443. }
  444. FUNCTION SGWriteMovieData(s: SeqGrabComponent; c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT): ComponentResult;
  445.     {$IFC NOT GENERATINGCFM}
  446.     INLINE $2F3C, $0010, $0100, $7000, $A82A;
  447.     {$ENDC}
  448. FUNCTION SGAddFrameReference(s: SeqGrabComponent; frameInfo: SeqGrabFrameInfoPtr): ComponentResult;
  449.     {$IFC NOT GENERATINGCFM}
  450.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  451.     {$ENDC}
  452. FUNCTION SGGetNextFrameReference(s: SeqGrabComponent; frameInfo: SeqGrabFrameInfoPtr; VAR frameDuration: TimeValue; VAR frameNumber: LONGINT): ComponentResult;
  453.     {$IFC NOT GENERATINGCFM}
  454.     INLINE $2F3C, $000C, $0102, $7000, $A82A;
  455.     {$ENDC}
  456. FUNCTION SGGetTimeBase(s: SeqGrabComponent; VAR tb: TimeBase): ComponentResult;
  457.     {$IFC NOT GENERATINGCFM}
  458.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  459.     {$ENDC}
  460. FUNCTION SGSortDeviceList(s: SeqGrabComponent; list: SGDeviceList): ComponentResult;
  461.     {$IFC NOT GENERATINGCFM}
  462.     INLINE $2F3C, $0004, $0104, $7000, $A82A;
  463.     {$ENDC}
  464. FUNCTION SGAddMovieData(s: SeqGrabComponent; c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT; chRefCon: LONGINT; time: TimeValue; writeType: INTEGER): ComponentResult;
  465.     {$IFC NOT GENERATINGCFM}
  466.     INLINE $2F3C, $001A, $0105, $7000, $A82A;
  467.     {$ENDC}
  468. FUNCTION SGChangedSource(s: SeqGrabComponent; c: SGChannel): ComponentResult;
  469.     {$IFC NOT GENERATINGCFM}
  470.     INLINE $2F3C, $0004, $0106, $7000, $A82A;
  471.     {$ENDC}
  472. { ** Sequence Grab CHANNEL Component Stuff ** }
  473. FUNCTION SGSetChannelUsage(c: SGChannel; usage: LONGINT): ComponentResult;
  474.     {$IFC NOT GENERATINGCFM}
  475.     INLINE $2F3C, $0004, $0080, $7000, $A82A;
  476.     {$ENDC}
  477. FUNCTION SGGetChannelUsage(c: SGChannel; VAR usage: LONGINT): ComponentResult;
  478.     {$IFC NOT GENERATINGCFM}
  479.     INLINE $2F3C, $0004, $0081, $7000, $A82A;
  480.     {$ENDC}
  481. FUNCTION SGSetChannelBounds(c: SGChannel; {CONST}VAR bounds: Rect): ComponentResult;
  482.     {$IFC NOT GENERATINGCFM}
  483.     INLINE $2F3C, $0004, $0082, $7000, $A82A;
  484.     {$ENDC}
  485. FUNCTION SGGetChannelBounds(c: SGChannel; VAR bounds: Rect): ComponentResult;
  486.     {$IFC NOT GENERATINGCFM}
  487.     INLINE $2F3C, $0004, $0083, $7000, $A82A;
  488.     {$ENDC}
  489. FUNCTION SGSetChannelVolume(c: SGChannel; volume: INTEGER): ComponentResult;
  490.     {$IFC NOT GENERATINGCFM}
  491.     INLINE $2F3C, $0002, $0084, $7000, $A82A;
  492.     {$ENDC}
  493. FUNCTION SGGetChannelVolume(c: SGChannel; VAR volume: INTEGER): ComponentResult;
  494.     {$IFC NOT GENERATINGCFM}
  495.     INLINE $2F3C, $0004, $0085, $7000, $A82A;
  496.     {$ENDC}
  497. FUNCTION SGGetChannelInfo(c: SGChannel; VAR channelInfo: LONGINT): ComponentResult;
  498.     {$IFC NOT GENERATINGCFM}
  499.     INLINE $2F3C, $0004, $0086, $7000, $A82A;
  500.     {$ENDC}
  501. FUNCTION SGSetChannelPlayFlags(c: SGChannel; playFlags: LONGINT): ComponentResult;
  502.     {$IFC NOT GENERATINGCFM}
  503.     INLINE $2F3C, $0004, $0087, $7000, $A82A;
  504.     {$ENDC}
  505. FUNCTION SGGetChannelPlayFlags(c: SGChannel; VAR playFlags: LONGINT): ComponentResult;
  506.     {$IFC NOT GENERATINGCFM}
  507.     INLINE $2F3C, $0004, $0088, $7000, $A82A;
  508.     {$ENDC}
  509. FUNCTION SGSetChannelMaxFrames(c: SGChannel; frameCount: LONGINT): ComponentResult;
  510.     {$IFC NOT GENERATINGCFM}
  511.     INLINE $2F3C, $0004, $0089, $7000, $A82A;
  512.     {$ENDC}
  513. FUNCTION SGGetChannelMaxFrames(c: SGChannel; VAR frameCount: LONGINT): ComponentResult;
  514.     {$IFC NOT GENERATINGCFM}
  515.     INLINE $2F3C, $0004, $008A, $7000, $A82A;
  516.     {$ENDC}
  517. FUNCTION SGSetChannelRefCon(c: SGChannel; refCon: LONGINT): ComponentResult;
  518.     {$IFC NOT GENERATINGCFM}
  519.     INLINE $2F3C, $0004, $008B, $7000, $A82A;
  520.     {$ENDC}
  521. FUNCTION SGSetChannelClip(c: SGChannel; theClip: RgnHandle): ComponentResult;
  522.     {$IFC NOT GENERATINGCFM}
  523.     INLINE $2F3C, $0004, $008C, $7000, $A82A;
  524.     {$ENDC}
  525. FUNCTION SGGetChannelClip(c: SGChannel; VAR theClip: RgnHandle): ComponentResult;
  526.     {$IFC NOT GENERATINGCFM}
  527.     INLINE $2F3C, $0004, $008D, $7000, $A82A;
  528.     {$ENDC}
  529. FUNCTION SGGetChannelSampleDescription(c: SGChannel; sampleDesc: Handle): ComponentResult;
  530.     {$IFC NOT GENERATINGCFM}
  531.     INLINE $2F3C, $0004, $008E, $7000, $A82A;
  532.     {$ENDC}
  533. FUNCTION SGGetChannelDeviceList(c: SGChannel; selectionFlags: LONGINT; VAR list: SGDeviceList): ComponentResult;
  534.     {$IFC NOT GENERATINGCFM}
  535.     INLINE $2F3C, $0008, $008F, $7000, $A82A;
  536.     {$ENDC}
  537. FUNCTION SGSetChannelDevice(c: SGChannel; name: StringPtr): ComponentResult;
  538.     {$IFC NOT GENERATINGCFM}
  539.     INLINE $2F3C, $0004, $0090, $7000, $A82A;
  540.     {$ENDC}
  541. FUNCTION SGSetChannelMatrix(c: SGChannel; {CONST}VAR m: MatrixRecord): ComponentResult;
  542.     {$IFC NOT GENERATINGCFM}
  543.     INLINE $2F3C, $0004, $0091, $7000, $A82A;
  544.     {$ENDC}
  545. FUNCTION SGGetChannelMatrix(c: SGChannel; VAR m: MatrixRecord): ComponentResult;
  546.     {$IFC NOT GENERATINGCFM}
  547.     INLINE $2F3C, $0004, $0092, $7000, $A82A;
  548.     {$ENDC}
  549. FUNCTION SGGetChannelTimeScale(c: SGChannel; VAR scale: TimeScale): ComponentResult;
  550.     {$IFC NOT GENERATINGCFM}
  551.     INLINE $2F3C, $0004, $0093, $7000, $A82A;
  552.     {$ENDC}
  553. FUNCTION SGChannelPutPicture(c: SGChannel): ComponentResult;
  554.     {$IFC NOT GENERATINGCFM}
  555.     INLINE $2F3C, $0000, $0094, $7000, $A82A;
  556.     {$ENDC}
  557. FUNCTION SGChannelSetRequestedDataRate(c: SGChannel; bytesPerSecond: LONGINT): ComponentResult;
  558.     {$IFC NOT GENERATINGCFM}
  559.     INLINE $2F3C, $0004, $0095, $7000, $A82A;
  560.     {$ENDC}
  561. FUNCTION SGChannelGetRequestedDataRate(c: SGChannel; VAR bytesPerSecond: LONGINT): ComponentResult;
  562.     {$IFC NOT GENERATINGCFM}
  563.     INLINE $2F3C, $0004, $0096, $7000, $A82A;
  564.     {$ENDC}
  565. FUNCTION SGChannelSetDataSourceName(c: SGChannel; name: Str255; scriptTag: ScriptCode): ComponentResult;
  566.     {$IFC NOT GENERATINGCFM}
  567.     INLINE $2F3C, $0006, $0097, $7000, $A82A;
  568.     {$ENDC}
  569. FUNCTION SGChannelGetDataSourceName(c: SGChannel; VAR name: Str255; VAR scriptTag: ScriptCode): ComponentResult;
  570.     {$IFC NOT GENERATINGCFM}
  571.     INLINE $2F3C, $0008, $0098, $7000, $A82A;
  572.     {$ENDC}
  573. {
  574.     calls from seqGrab to Channel
  575. }
  576. FUNCTION SGInitChannel(c: SGChannel; owner: SeqGrabComponent): ComponentResult;
  577.     {$IFC NOT GENERATINGCFM}
  578.     INLINE $2F3C, $0004, $0180, $7000, $A82A;
  579.     {$ENDC}
  580. FUNCTION SGWriteSamples(c: SGChannel; m: Movie; theFile: AliasHandle): ComponentResult;
  581.     {$IFC NOT GENERATINGCFM}
  582.     INLINE $2F3C, $0008, $0181, $7000, $A82A;
  583.     {$ENDC}
  584. FUNCTION SGGetDataRate(c: SGChannel; VAR bytesPerSecond: LONGINT): ComponentResult;
  585.     {$IFC NOT GENERATINGCFM}
  586.     INLINE $2F3C, $0004, $0182, $7000, $A82A;
  587.     {$ENDC}
  588. FUNCTION SGAlignChannelRect(c: SGChannel; VAR r: Rect): ComponentResult;
  589.     {$IFC NOT GENERATINGCFM}
  590.     INLINE $2F3C, $0004, $0183, $7000, $A82A;
  591.     {$ENDC}
  592. {
  593.     Dorky dialog panel calls
  594. }
  595. FUNCTION SGPanelGetDitl(s: SeqGrabComponent; VAR ditl: Handle): ComponentResult;
  596.     {$IFC NOT GENERATINGCFM}
  597.     INLINE $2F3C, $0004, $0200, $7000, $A82A;
  598.     {$ENDC}
  599. FUNCTION SGPanelGetTitle(s: SeqGrabComponent; VAR title: Str255): ComponentResult;
  600.     {$IFC NOT GENERATINGCFM}
  601.     INLINE $2F3C, $0004, $0201, $7000, $A82A;
  602.     {$ENDC}
  603. FUNCTION SGPanelCanRun(s: SeqGrabComponent; c: SGChannel): ComponentResult;
  604.     {$IFC NOT GENERATINGCFM}
  605.     INLINE $2F3C, $0004, $0202, $7000, $A82A;
  606.     {$ENDC}
  607. FUNCTION SGPanelInstall(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER): ComponentResult;
  608.     {$IFC NOT GENERATINGCFM}
  609.     INLINE $2F3C, $000A, $0203, $7000, $A82A;
  610.     {$ENDC}
  611. FUNCTION SGPanelEvent(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER; VAR theEvent: EventRecord; VAR itemHit: INTEGER; VAR handled: BOOLEAN): ComponentResult;
  612.     {$IFC NOT GENERATINGCFM}
  613.     INLINE $2F3C, $0016, $0204, $7000, $A82A;
  614.     {$ENDC}
  615. FUNCTION SGPanelItem(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER; itemNum: INTEGER): ComponentResult;
  616.     {$IFC NOT GENERATINGCFM}
  617.     INLINE $2F3C, $000C, $0205, $7000, $A82A;
  618.     {$ENDC}
  619. FUNCTION SGPanelRemove(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER): ComponentResult;
  620.     {$IFC NOT GENERATINGCFM}
  621.     INLINE $2F3C, $000A, $0206, $7000, $A82A;
  622.     {$ENDC}
  623. FUNCTION SGPanelSetGrabber(s: SeqGrabComponent; sg: SeqGrabComponent): ComponentResult;
  624.     {$IFC NOT GENERATINGCFM}
  625.     INLINE $2F3C, $0004, $0207, $7000, $A82A;
  626.     {$ENDC}
  627. FUNCTION SGPanelSetResFile(s: SeqGrabComponent; resRef: INTEGER): ComponentResult;
  628.     {$IFC NOT GENERATINGCFM}
  629.     INLINE $2F3C, $0002, $0208, $7000, $A82A;
  630.     {$ENDC}
  631. FUNCTION SGPanelGetSettings(s: SeqGrabComponent; c: SGChannel; VAR ud: UserData; flags: LONGINT): ComponentResult;
  632.     {$IFC NOT GENERATINGCFM}
  633.     INLINE $2F3C, $000C, $0209, $7000, $A82A;
  634.     {$ENDC}
  635. FUNCTION SGPanelSetSettings(s: SeqGrabComponent; c: SGChannel; ud: UserData; flags: LONGINT): ComponentResult;
  636.     {$IFC NOT GENERATINGCFM}
  637.     INLINE $2F3C, $000C, $020A, $7000, $A82A;
  638.     {$ENDC}
  639. FUNCTION SGPanelValidateInput(s: SeqGrabComponent; VAR ok: BOOLEAN): ComponentResult;
  640.     {$IFC NOT GENERATINGCFM}
  641.     INLINE $2F3C, $0004, $020B, $7000, $A82A;
  642.     {$ENDC}
  643. FUNCTION SGPanelSetEventFilter(s: SeqGrabComponent; proc: SGModalFilterUPP; refCon: LONGINT): ComponentResult;
  644.     {$IFC NOT GENERATINGCFM}
  645.     INLINE $2F3C, $0008, $020C, $7000, $A82A;
  646.     {$ENDC}
  647. { ** Sequence Grab VIDEO CHANNEL Component Stuff ** }
  648. {
  649.     Video stuff
  650. }
  651.  
  652. TYPE
  653.     SGCompressInfoPtr = ^SGCompressInfo;
  654.     SGCompressInfo = RECORD
  655.         buffer:                    Ptr;
  656.         bufferSize:                LONGINT;
  657.         similarity:                SInt8;
  658.         reserved:                SInt8;
  659.     END;
  660.  
  661.     SGGrabProcPtr = ProcPtr;  { FUNCTION SGGrab(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT): ComponentResult; }
  662.  
  663.     SGGrabCompleteProcPtr = ProcPtr;  { FUNCTION SGGrabComplete(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; refCon: LONGINT): ComponentResult; }
  664.  
  665.     SGDisplayProcPtr = ProcPtr;  { FUNCTION SGDisplay(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT): ComponentResult; }
  666.  
  667.     SGCompressProcPtr = ProcPtr;  { FUNCTION SGCompress(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT): ComponentResult; }
  668.  
  669.     SGCompressCompleteProcPtr = ProcPtr;  { FUNCTION SGCompressComplete(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; VAR ci: SGCompressInfo; refCon: LONGINT): ComponentResult; }
  670.  
  671.     SGAddFrameProcPtr = ProcPtr;  { FUNCTION SGAddFrame(c: SGChannel; bufferNum: INTEGER; atTime: TimeValue; scale: TimeScale; (CONST)VAR ci: SGCompressInfo; refCon: LONGINT): ComponentResult; }
  672.  
  673.     SGTransferFrameProcPtr = ProcPtr;  { FUNCTION SGTransferFrame(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT): ComponentResult; }
  674.  
  675.     SGGrabCompressCompleteProcPtr = ProcPtr;  { FUNCTION SGGrabCompressComplete(c: SGChannel; VAR done: BOOLEAN; VAR ci: SGCompressInfo; VAR t: TimeRecord; refCon: LONGINT): ComponentResult; }
  676.  
  677.     SGDisplayCompressProcPtr = ProcPtr;  { FUNCTION SGDisplayCompress(c: SGChannel; dataPtr: Ptr; desc: ImageDescriptionHandle; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT): ComponentResult; }
  678.  
  679.     SGGrabUPP = UniversalProcPtr;
  680.     SGGrabCompleteUPP = UniversalProcPtr;
  681.     SGDisplayUPP = UniversalProcPtr;
  682.     SGCompressUPP = UniversalProcPtr;
  683.     SGCompressCompleteUPP = UniversalProcPtr;
  684.     SGAddFrameUPP = UniversalProcPtr;
  685.     SGTransferFrameUPP = UniversalProcPtr;
  686.     SGGrabCompressCompleteUPP = UniversalProcPtr;
  687.     SGDisplayCompressUPP = UniversalProcPtr;
  688.     VideoBottlesPtr = ^VideoBottles;
  689.     VideoBottles = RECORD
  690.         procCount:                INTEGER;
  691.         grabProc:                SGGrabUPP;
  692.         grabCompleteProc:        SGGrabCompleteUPP;
  693.         displayProc:            SGDisplayUPP;
  694.         compressProc:            SGCompressUPP;
  695.         compressCompleteProc:    SGCompressCompleteUPP;
  696.         addFrameProc:            SGAddFrameUPP;
  697.         transferFrameProc:        SGTransferFrameUPP;
  698.         grabCompressCompleteProc: SGGrabCompressCompleteUPP;
  699.         displayCompressProc:    SGDisplayCompressUPP;
  700.     END;
  701.  
  702. FUNCTION SGGetSrcVideoBounds(c: SGChannel; VAR r: Rect): ComponentResult;
  703.     {$IFC NOT GENERATINGCFM}
  704.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  705.     {$ENDC}
  706. FUNCTION SGSetVideoRect(c: SGChannel; {CONST}VAR r: Rect): ComponentResult;
  707.     {$IFC NOT GENERATINGCFM}
  708.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  709.     {$ENDC}
  710. FUNCTION SGGetVideoRect(c: SGChannel; VAR r: Rect): ComponentResult;
  711.     {$IFC NOT GENERATINGCFM}
  712.     INLINE $2F3C, $0004, $0102, $7000, $A82A;
  713.     {$ENDC}
  714. FUNCTION SGGetVideoCompressorType(c: SGChannel; VAR compressorType: OSType): ComponentResult;
  715.     {$IFC NOT GENERATINGCFM}
  716.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  717.     {$ENDC}
  718. FUNCTION SGSetVideoCompressorType(c: SGChannel; compressorType: OSType): ComponentResult;
  719.     {$IFC NOT GENERATINGCFM}
  720.     INLINE $2F3C, $0004, $0104, $7000, $A82A;
  721.     {$ENDC}
  722. FUNCTION SGSetVideoCompressor(c: SGChannel; depth: INTEGER; compressor: CompressorComponent; spatialQuality: CodecQ; temporalQuality: CodecQ; keyFrameRate: LONGINT): ComponentResult;
  723.     {$IFC NOT GENERATINGCFM}
  724.     INLINE $2F3C, $0012, $0105, $7000, $A82A;
  725.     {$ENDC}
  726. FUNCTION SGGetVideoCompressor(c: SGChannel; VAR depth: INTEGER; VAR compressor: CompressorComponent; VAR spatialQuality: CodecQ; VAR temporalQuality: CodecQ; VAR keyFrameRate: LONGINT): ComponentResult;
  727.     {$IFC NOT GENERATINGCFM}
  728.     INLINE $2F3C, $0014, $0106, $7000, $A82A;
  729.     {$ENDC}
  730. FUNCTION SGGetVideoDigitizerComponent(c: SGChannel): ComponentInstance;
  731.     {$IFC NOT GENERATINGCFM}
  732.     INLINE $2F3C, $0000, $0107, $7000, $A82A;
  733.     {$ENDC}
  734. FUNCTION SGSetVideoDigitizerComponent(c: SGChannel; vdig: ComponentInstance): ComponentResult;
  735.     {$IFC NOT GENERATINGCFM}
  736.     INLINE $2F3C, $0004, $0108, $7000, $A82A;
  737.     {$ENDC}
  738. FUNCTION SGVideoDigitizerChanged(c: SGChannel): ComponentResult;
  739.     {$IFC NOT GENERATINGCFM}
  740.     INLINE $2F3C, $0000, $0109, $7000, $A82A;
  741.     {$ENDC}
  742. FUNCTION SGSetVideoBottlenecks(c: SGChannel; VAR vb: VideoBottles): ComponentResult;
  743.     {$IFC NOT GENERATINGCFM}
  744.     INLINE $2F3C, $0004, $010A, $7000, $A82A;
  745.     {$ENDC}
  746. FUNCTION SGGetVideoBottlenecks(c: SGChannel; VAR vb: VideoBottles): ComponentResult;
  747.     {$IFC NOT GENERATINGCFM}
  748.     INLINE $2F3C, $0004, $010B, $7000, $A82A;
  749.     {$ENDC}
  750. FUNCTION SGGrabFrame(c: SGChannel; bufferNum: INTEGER): ComponentResult;
  751.     {$IFC NOT GENERATINGCFM}
  752.     INLINE $2F3C, $0002, $010C, $7000, $A82A;
  753.     {$ENDC}
  754. FUNCTION SGGrabFrameComplete(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN): ComponentResult;
  755.     {$IFC NOT GENERATINGCFM}
  756.     INLINE $2F3C, $0006, $010D, $7000, $A82A;
  757.     {$ENDC}
  758. FUNCTION SGDisplayFrame(c: SGChannel; bufferNum: INTEGER; {CONST}VAR mp: MatrixRecord; clipRgn: RgnHandle): ComponentResult;
  759.     {$IFC NOT GENERATINGCFM}
  760.     INLINE $2F3C, $000A, $010E, $7000, $A82A;
  761.     {$ENDC}
  762. FUNCTION SGCompressFrame(c: SGChannel; bufferNum: INTEGER): ComponentResult;
  763.     {$IFC NOT GENERATINGCFM}
  764.     INLINE $2F3C, $0002, $010F, $7000, $A82A;
  765.     {$ENDC}
  766. FUNCTION SGCompressFrameComplete(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; VAR ci: SGCompressInfo): ComponentResult;
  767.     {$IFC NOT GENERATINGCFM}
  768.     INLINE $2F3C, $000A, $0110, $7000, $A82A;
  769.     {$ENDC}
  770. FUNCTION SGAddFrame(c: SGChannel; bufferNum: INTEGER; atTime: TimeValue; scale: TimeScale; {CONST}VAR ci: SGCompressInfo): ComponentResult;
  771.     {$IFC NOT GENERATINGCFM}
  772.     INLINE $2F3C, $000E, $0111, $7000, $A82A;
  773.     {$ENDC}
  774. FUNCTION SGTransferFrameForCompress(c: SGChannel; bufferNum: INTEGER; {CONST}VAR mp: MatrixRecord; clipRgn: RgnHandle): ComponentResult;
  775.     {$IFC NOT GENERATINGCFM}
  776.     INLINE $2F3C, $000A, $0112, $7000, $A82A;
  777.     {$ENDC}
  778. FUNCTION SGSetCompressBuffer(c: SGChannel; depth: INTEGER; {CONST}VAR compressSize: Rect): ComponentResult;
  779.     {$IFC NOT GENERATINGCFM}
  780.     INLINE $2F3C, $0006, $0113, $7000, $A82A;
  781.     {$ENDC}
  782. FUNCTION SGGetCompressBuffer(c: SGChannel; VAR depth: INTEGER; VAR compressSize: Rect): ComponentResult;
  783.     {$IFC NOT GENERATINGCFM}
  784.     INLINE $2F3C, $0008, $0114, $7000, $A82A;
  785.     {$ENDC}
  786. FUNCTION SGGetBufferInfo(c: SGChannel; bufferNum: INTEGER; VAR bufferPM: PixMapHandle; VAR bufferRect: Rect; VAR compressBuffer: GWorldPtr; VAR compressBufferRect: Rect): ComponentResult;
  787.     {$IFC NOT GENERATINGCFM}
  788.     INLINE $2F3C, $0012, $0115, $7000, $A82A;
  789.     {$ENDC}
  790. FUNCTION SGSetUseScreenBuffer(c: SGChannel; useScreenBuffer: BOOLEAN): ComponentResult;
  791.     {$IFC NOT GENERATINGCFM}
  792.     INLINE $2F3C, $0002, $0116, $7000, $A82A;
  793.     {$ENDC}
  794. FUNCTION SGGetUseScreenBuffer(c: SGChannel; VAR useScreenBuffer: BOOLEAN): ComponentResult;
  795.     {$IFC NOT GENERATINGCFM}
  796.     INLINE $2F3C, $0004, $0117, $7000, $A82A;
  797.     {$ENDC}
  798. FUNCTION SGGrabCompressComplete(c: SGChannel; VAR done: BOOLEAN; VAR ci: SGCompressInfo; VAR tr: TimeRecord): ComponentResult;
  799.     {$IFC NOT GENERATINGCFM}
  800.     INLINE $2F3C, $000C, $0118, $7000, $A82A;
  801.     {$ENDC}
  802. FUNCTION SGDisplayCompress(c: SGChannel; dataPtr: Ptr; desc: ImageDescriptionHandle; VAR mp: MatrixRecord; clipRgn: RgnHandle): ComponentResult;
  803.     {$IFC NOT GENERATINGCFM}
  804.     INLINE $2F3C, $0010, $0119, $7000, $A82A;
  805.     {$ENDC}
  806. FUNCTION SGSetFrameRate(c: SGChannel; frameRate: Fixed): ComponentResult;
  807.     {$IFC NOT GENERATINGCFM}
  808.     INLINE $2F3C, $0004, $011A, $7000, $A82A;
  809.     {$ENDC}
  810. FUNCTION SGGetFrameRate(c: SGChannel; VAR frameRate: Fixed): ComponentResult;
  811.     {$IFC NOT GENERATINGCFM}
  812.     INLINE $2F3C, $0004, $011B, $7000, $A82A;
  813.     {$ENDC}
  814. { ** Sequence Grab SOUND CHANNEL Component Stuff ** }
  815. {
  816.     Sound stuff
  817. }
  818. FUNCTION SGSetSoundInputDriver(c: SGChannel; driverName: Str255): ComponentResult;
  819.     {$IFC NOT GENERATINGCFM}
  820.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  821.     {$ENDC}
  822. FUNCTION SGGetSoundInputDriver(c: SGChannel): LONGINT;
  823.     {$IFC NOT GENERATINGCFM}
  824.     INLINE $2F3C, $0000, $0101, $7000, $A82A;
  825.     {$ENDC}
  826. FUNCTION SGSoundInputDriverChanged(c: SGChannel): ComponentResult;
  827.     {$IFC NOT GENERATINGCFM}
  828.     INLINE $2F3C, $0000, $0102, $7000, $A82A;
  829.     {$ENDC}
  830. FUNCTION SGSetSoundRecordChunkSize(c: SGChannel; seconds: LONGINT): ComponentResult;
  831.     {$IFC NOT GENERATINGCFM}
  832.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  833.     {$ENDC}
  834. FUNCTION SGGetSoundRecordChunkSize(c: SGChannel): LONGINT;
  835.     {$IFC NOT GENERATINGCFM}
  836.     INLINE $2F3C, $0000, $0104, $7000, $A82A;
  837.     {$ENDC}
  838. FUNCTION SGSetSoundInputRate(c: SGChannel; rate: Fixed): ComponentResult;
  839.     {$IFC NOT GENERATINGCFM}
  840.     INLINE $2F3C, $0004, $0105, $7000, $A82A;
  841.     {$ENDC}
  842. FUNCTION SGGetSoundInputRate(c: SGChannel): Fixed;
  843.     {$IFC NOT GENERATINGCFM}
  844.     INLINE $2F3C, $0000, $0106, $7000, $A82A;
  845.     {$ENDC}
  846. FUNCTION SGSetSoundInputParameters(c: SGChannel; sampleSize: INTEGER; numChannels: INTEGER; compressionType: OSType): ComponentResult;
  847.     {$IFC NOT GENERATINGCFM}
  848.     INLINE $2F3C, $0008, $0107, $7000, $A82A;
  849.     {$ENDC}
  850. FUNCTION SGGetSoundInputParameters(c: SGChannel; VAR sampleSize: INTEGER; VAR numChannels: INTEGER; VAR compressionType: OSType): ComponentResult;
  851.     {$IFC NOT GENERATINGCFM}
  852.     INLINE $2F3C, $000C, $0108, $7000, $A82A;
  853.     {$ENDC}
  854.  
  855. CONST
  856.     sgChannelAtom                = 'chan';
  857.     sgChannelSettingsAtom        = 'ctom';
  858.     sgChannelDescription        = 'cdsc';
  859.     sgChannelSettings            = 'cset';
  860.  
  861.     sgDeviceNameType            = 'name';
  862.     sgUsageType                    = 'use ';
  863.     sgPlayFlagsType                = 'plyf';
  864.     sgClipType                    = 'clip';
  865.     sgMatrixType                = 'mtrx';
  866.     sgVolumeType                = 'volu';
  867.  
  868.     sgPanelSettingsAtom            = 'ptom';
  869.     sgPanelDescription            = 'pdsc';
  870.     sgPanelSettings                = 'pset';
  871.  
  872.     sgcSoundCompressionType        = 'scmp';
  873.     sgcSoundSampleRateType        = 'srat';
  874.     sgcSoundChannelCountType    = 'schn';
  875.     sgcSoundSampleSizeType        = 'ssiz';
  876.     sgcSoundInputType            = 'sinp';
  877.     sgcSoundGainType            = 'gain';
  878.  
  879.     sgcVideoHueType                = 'hue ';
  880.     sgcVideoSaturationType        = 'satr';
  881.     sgcVideoContrastType        = 'trst';
  882.     sgcVideoSharpnessType        = 'shrp';
  883.     sgcVideoBrigtnessType        = 'brit';
  884.     sgcVideoBlackLevelType        = 'blkl';
  885.     sgcVideoWhiteLevelType        = 'whtl';
  886.     sgcVideoInputType            = 'vinp';
  887.     sgcVideoFormatType            = 'vstd';
  888.     sgcVideoFilterType            = 'vflt';
  889.     sgcVideoRectType            = 'vrct';
  890.     sgVideoDigitizerType        = 'vdig';
  891.  
  892.     kSGInitializeSelect            = $01;
  893.     kSGSetDataOutputSelect        = $02;
  894.     kSGGetDataOutputSelect        = $03;
  895.     kSGSetGWorldSelect            = $04;
  896.     kSGGetGWorldSelect            = $05;
  897.     kSGNewChannelSelect            = $06;
  898.     kSGDisposeChannelSelect        = $07;
  899.     kSGStartPreviewSelect        = $10;
  900.     kSGStartRecordSelect        = $11;
  901.     kSGIdleSelect                = $12;
  902.     kSGStopSelect                = $13;
  903.     kSGPauseSelect                = $14;
  904.     kSGPrepareSelect            = $15;
  905.     kSGReleaseSelect            = $16;
  906.     kSGGetMovieSelect            = $17;
  907.     kSGSetMaximumRecordTimeSelect = $18;
  908.     kSGGetMaximumRecordTimeSelect = $19;
  909.     kSGGetStorageSpaceRemainingSelect = $1A;
  910.     kSGGetTimeRemainingSelect    = $1B;
  911.     kSGGrabPictSelect            = $1C;
  912.     kSGGetLastMovieResIDSelect    = $1D;
  913.     kSGSetFlagsSelect            = $1E;
  914.     kSGGetFlagsSelect            = $1F;
  915.     kSGSetDataProcSelect        = $20;
  916.     kSGNewChannelFromComponentSelect = $21;
  917.     kSGDisposeDeviceListSelect    = $22;
  918.     kSGAppendDeviceListToMenuSelect = $23;
  919.     kSGSetSettingsSelect        = $24;
  920.     kSGGetSettingsSelect        = $25;
  921.     kSGGetIndChannelSelect        = $26;
  922.     kSGUpdateSelect                = $27;
  923.     kSGGetPauseSelect            = $28;
  924.     kSGSettingsDialogSelect        = $29;
  925.     kSGGetAlignmentProcSelect    = $2A;
  926.     kSGSetChannelSettingsSelect    = $2B;
  927.     kSGGetChannelSettingsSelect    = $2C;
  928.     kSGGetModeSelect            = $2D;
  929.     kSGSetDataRefSelect            = $2E;
  930.     kSGGetDataRefSelect            = $2F;
  931.     kSGNewOutputSelect            = $30;
  932.     kSGDisposeOutputSelect        = $31;
  933.     kSGSetOutputFlagsSelect        = $32;
  934.     kSGSetChannelOutputSelect    = $33;
  935.     kSGGetDataOutputStorageSpaceRemainingSelect = $34;
  936.     kSGWriteMovieDataSelect        = $0100;
  937.     kSGAddFrameReferenceSelect    = $0101;
  938.     kSGGetNextFrameReferenceSelect = $0102;
  939.     kSGGetTimeBaseSelect        = $0103;
  940.     kSGSortDeviceListSelect        = $0104;
  941.     kSGAddMovieDataSelect        = $0105;
  942.     kSGChangedSourceSelect        = $0106;
  943.     kSGCSetChannelUsageSelect    = $80;
  944.     kSGCGetChannelUsageSelect    = $81;
  945.     kSGCSetChannelBoundsSelect    = $82;
  946.     kSGCGetChannelBoundsSelect    = $83;
  947.     kSGCSetChannelVolumeSelect    = $84;
  948.     kSGCGetChannelVolumeSelect    = $85;
  949.     kSGCGetChannelInfoSelect    = $86;
  950.     kSGCSetChannelPlayFlagsSelect = $87;
  951.     kSGCGetChannelPlayFlagsSelect = $88;
  952.     kSGCSetChannelMaxFramesSelect = $89;
  953.     kSGCGetChannelMaxFramesSelect = $8A;
  954.     kSGCSetChannelRefConSelect    = $8B;
  955.     kSGCSetChannelClipSelect    = $8C;
  956.     kSGCGetChannelClipSelect    = $8D;
  957.     kSGCGetChannelSampleDescriptionSelect = $8E;
  958.     kSGCGetChannelDeviceListSelect = $8F;
  959.     kSGCSetChannelDeviceSelect    = $90;
  960.     kSGCSetChannelMatrixSelect    = $91;
  961.     kSGCGetChannelMatrixSelect    = $92;
  962.     kSGCGetChannelTimeScaleSelect = $93;
  963.     kSGCChannelPutPictureSelect    = $94;
  964.     kSGCChannelSetRequestedDataRateSelect = $95;
  965.     kSGCChannelGetRequestedDataRateSelect = $96;
  966.     kSGCChannelSetDataSourceNameSelect = $97;
  967.     kSGCChannelGetDataSourceNameSelect = $98;
  968.     kSGCInitChannelSelect        = $0180;
  969.     kSGCWriteSamplesSelect        = $0181;
  970.     kSGCGetDataRateSelect        = $0182;
  971.     kSGCAlignChannelRectSelect    = $0183;
  972.     kSGCPanelGetDitlSelect        = $0200;
  973.     kSGCPanelGetTitleSelect        = $0201;
  974.     kSGCPanelCanRunSelect        = $0202;
  975.     kSGCPanelInstallSelect        = $0203;
  976.     kSGCPanelEventSelect        = $0204;
  977.     kSGCPanelItemSelect            = $0205;
  978.     kSGCPanelRemoveSelect        = $0206;
  979.     kSGCPanelSetGrabberSelect    = $0207;
  980.     kSGCPanelSetResFileSelect    = $0208;
  981.     kSGCPanelGetSettingsSelect    = $0209;
  982.     kSGCPanelSetSettingsSelect    = $020A;
  983.     kSGCPanelValidateInputSelect = $020B;
  984.     kSGCPanelSetEventFilterSelect = $020C;
  985.     kSGCGetSrcVideoBoundsSelect    = $0100;
  986.     kSGCSetVideoRectSelect        = $0101;
  987.     kSGCGetVideoRectSelect        = $0102;
  988.     kSGCGetVideoCompressorTypeSelect = $0103;
  989.     kSGCSetVideoCompressorTypeSelect = $0104;
  990.     kSGCSetVideoCompressorSelect = $0105;
  991.     kSGCGetVideoCompressorSelect = $0106;
  992.     kSGCGetVideoDigitizerComponentSelect = $0107;
  993.     kSGCSetVideoDigitizerComponentSelect = $0108;
  994.     kSGCVideoDigitizerChangedSelect = $0109;
  995.     kSGCSetVideoBottlenecksSelect = $010A;
  996.     kSGCGetVideoBottlenecksSelect = $010B;
  997.     kSGCGrabFrameSelect            = $010C;
  998.     kSGCGrabFrameCompleteSelect    = $010D;
  999.     kSGCDisplayFrameSelect        = $010E;
  1000.     kSGCCompressFrameSelect        = $010F;
  1001.     kSGCCompressFrameCompleteSelect = $0110;
  1002.     kSGCAddFrameSelect            = $0111;
  1003.     kSGCTransferFrameForCompressSelect = $0112;
  1004.     kSGCSetCompressBufferSelect    = $0113;
  1005.     kSGCGetCompressBufferSelect    = $0114;
  1006.     kSGCGetBufferInfoSelect        = $0115;
  1007.     kSGCSetUseScreenBufferSelect = $0116;
  1008.     kSGCGetUseScreenBufferSelect = $0117;
  1009.     kSGCGrabCompressCompleteSelect = $0118;
  1010.     kSGCDisplayCompressSelect    = $0119;
  1011.     kSGCSetFrameRateSelect        = $011A;
  1012.     kSGCGetFrameRateSelect        = $011B;
  1013.     kSGCSetSoundInputDriverSelect = $0100;
  1014.     kSGCGetSoundInputDriverSelect = $0101;
  1015.     kSGCSoundInputDriverChangedSelect = $0102;
  1016.     kSGCSetSoundRecordChunkSizeSelect = $0103;
  1017.     kSGCGetSoundRecordChunkSizeSelect = $0104;
  1018.     kSGCSetSoundInputRateSelect    = $0105;
  1019.     kSGCGetSoundInputRateSelect    = $0106;
  1020.     kSGCSetSoundInputParametersSelect = $0107;
  1021.     kSGCGetSoundInputParametersSelect = $0108;
  1022.  
  1023. {  Standard type for video digitizers  }
  1024.     videoDigitizerComponentType    = 'vdig';
  1025.     vdigInterfaceRev            = 2;
  1026.  
  1027. {  Input Format Standards  }
  1028.     ntscIn                        = 0;                            {  current input format  }
  1029.     currentIn                    = 0;                            {  ntsc input format  }
  1030.     palIn                        = 1;                            {  pal input format  }
  1031.     secamIn                        = 2;                            {  secam input format  }
  1032.     ntscReallyIn                = 3;                            {  ntsc input format  }
  1033.  
  1034. {  Input Formats  }
  1035.     compositeIn                    = 0;                            {  input is composite format  }
  1036.     sVideoIn                    = 1;                            {  input is sVideo format  }
  1037.     rgbComponentIn                = 2;                            {  input is rgb component format  }
  1038.     rgbComponentSyncIn            = 3;                            {  input is rgb component format (sync on green?) }
  1039.     yuvComponentIn                = 4;                            {  input is yuv component format  }
  1040.     yuvComponentSyncIn            = 5;                            {  input is yuv component format (sync on green?)  }
  1041.     tvTunerIn                    = 6;
  1042.  
  1043. {  Video Digitizer PlayThru States  }
  1044.     vdPlayThruOff                = 0;
  1045.     vdPlayThruOn                = 1;
  1046.  
  1047. {  Input Color Space Modes  }
  1048.     vdDigitizerBW                = 0;                            {  black and white  }
  1049.     vdDigitizerRGB                = 1;                            {  rgb color  }
  1050.  
  1051. {  Phase Lock Loop Modes  }
  1052.     vdBroadcastMode                = 0;                            {  Broadcast / Laser Disk video mode  }
  1053.     vdVTRMode                    = 1;                            {  VCR / Magnetic media mode  }
  1054.  
  1055. {  Field Select Options  }
  1056.     vdUseAnyField                = 0;                            {  Digitizers choice on field use  }
  1057.     vdUseOddField                = 1;                            {  Use odd field for half size vert and smaller  }
  1058.     vdUseEvenField                = 2;                            {  Use even field for half size vert and smaller  }
  1059.  
  1060. {  vdig types  }
  1061.     vdTypeBasic                    = 0;                            {  basic, no clipping  }
  1062.     vdTypeAlpha                    = 1;                            {  supports clipping with alpha channel  }
  1063.     vdTypeMask                    = 2;                            {  supports clipping with mask plane  }
  1064.     vdTypeKey                    = 3;                            {  supports clipping with key color(s)  }
  1065.  
  1066. {  Digitizer Input Capability/Current Flags     }
  1067.     digiInDoesNTSC                = $00000001;                    {  digitizer supports NTSC input format  }
  1068.     digiInDoesPAL                = $00000002;                    {  digitizer supports PAL input format  }
  1069.     digiInDoesSECAM                = $00000004;                    {  digitizer supports SECAM input format  }
  1070.     digiInDoesGenLock            = $00000080;                    {  digitizer does genlock  }
  1071.     digiInDoesComposite            = $00000100;                    {  digitizer supports composite input type  }
  1072.     digiInDoesSVideo            = $00000200;                    {  digitizer supports S-Video input type  }
  1073.     digiInDoesComponent            = $00000400;                    {  digitizer supports component = rgb, input type  }
  1074.     digiInVTR_Broadcast            = $00000800;                    {  digitizer can differentiate between the two  }
  1075.     digiInDoesColor                = $00001000;                    {  digitizer supports color  }
  1076.     digiInDoesBW                = $00002000;                    {  digitizer supports black & white  }
  1077.                                                                 {  Digitizer Input Current Flags = these are valid only during active operating conditions,     }
  1078.     digiInSignalLock            = $80000000;                    {  digitizer detects input signal is locked, this bit = horiz lock || vertical lock  }
  1079.  
  1080. {  Digitizer Output Capability/Current Flags  }
  1081.     digiOutDoes1                = $00000001;                    {  digitizer supports 1 bit pixels  }
  1082.     digiOutDoes2                = $00000002;                    {  digitizer supports 2 bit pixels  }
  1083.     digiOutDoes4                = $00000004;                    {  digitizer supports 4 bit pixels  }
  1084.     digiOutDoes8                = $00000008;                    {  digitizer supports 8 bit pixels  }
  1085.     digiOutDoes16                = $00000010;                    {  digitizer supports 16 bit pixels  }
  1086.     digiOutDoes32                = $00000020;                    {  digitizer supports 32 bit pixels  }
  1087.     digiOutDoesDither            = $00000040;                    {  digitizer dithers in indexed modes  }
  1088.     digiOutDoesStretch            = $00000080;                    {  digitizer can arbitrarily stretch  }
  1089.     digiOutDoesShrink            = $00000100;                    {  digitizer can arbitrarily shrink  }
  1090.     digiOutDoesMask                = $00000200;                    {  digitizer can mask to clipping regions  }
  1091.     digiOutDoesDouble            = $00000800;                    {  digitizer can stretch to exactly double size  }
  1092.     digiOutDoesQuad                = $00001000;                    {  digitizer can stretch exactly quadruple size  }
  1093.     digiOutDoesQuarter            = $00002000;                    {  digitizer can shrink to exactly quarter size  }
  1094.     digiOutDoesSixteenth        = $00004000;                    {  digitizer can shrink to exactly sixteenth size  }
  1095.     digiOutDoesRotate            = $00008000;                    {  digitizer supports rotate transformations  }
  1096.     digiOutDoesHorizFlip        = $00010000;                    {  digitizer supports horizontal flips Sx < 0  }
  1097.     digiOutDoesVertFlip            = $00020000;                    {  digitizer supports vertical flips Sy < 0  }
  1098.     digiOutDoesSkew                = $00040000;                    {  digitizer supports skew = shear,twist,  }
  1099.     digiOutDoesBlend            = $00080000;
  1100.     digiOutDoesWarp                = $00100000;
  1101.     digiOutDoesHW_DMA            = $00200000;                    {  digitizer not constrained to local device  }
  1102.     digiOutDoesHWPlayThru        = $00400000;                    {  digitizer doesn't need time to play thru  }
  1103.     digiOutDoesILUT                = $00800000;                    {  digitizer does inverse LUT for index modes  }
  1104.     digiOutDoesKeyColor            = $01000000;                    {  digitizer does key color functions too  }
  1105.     digiOutDoesAsyncGrabs        = $02000000;                    {  digitizer supports async grabs  }
  1106.     digiOutDoesUnreadableScreenBits = $04000000;                {  playthru doesn't generate readable bits on screen }
  1107.     digiOutDoesCompress            = $08000000;                    {  supports alternate output data types  }
  1108.     digiOutDoesCompressOnly        = $10000000;                    {  can't provide raw frames anywhere  }
  1109.     digiOutDoesPlayThruDuringCompress = $20000000;                {  digi can do playthru while providing compressed data  }
  1110.  
  1111. {  Types  }
  1112.  
  1113. TYPE
  1114.     VideoDigitizerComponent                = ComponentInstance;
  1115.     VideoDigitizerError                    = ComponentResult;
  1116.     DigitizerInfoPtr = ^DigitizerInfo;
  1117.     DigitizerInfo = RECORD
  1118.         vdigType:                INTEGER;
  1119.         inputCapabilityFlags:    LONGINT;
  1120.         outputCapabilityFlags:    LONGINT;
  1121.         inputCurrentFlags:        LONGINT;
  1122.         outputCurrentFlags:        LONGINT;
  1123.         slot:                    INTEGER;                                {  temporary for connection purposes  }
  1124.         gdh:                    GDHandle;                                {  temporary for digitizers that have preferred screen  }
  1125.         maskgdh:                GDHandle;                                {  temporary for digitizers that have mask planes  }
  1126.         minDestHeight:            INTEGER;                                {  Smallest resizable height  }
  1127.         minDestWidth:            INTEGER;                                {  Smallest resizable width  }
  1128.         maxDestHeight:            INTEGER;                                {  Largest resizable height  }
  1129.         maxDestWidth:            INTEGER;                                {  Largest resizable height  }
  1130.         blendLevels:            INTEGER;                                {  Number of blend levels supported (2 if 1 bit mask)  }
  1131.         reserved:                LONGINT;                                {  reserved  }
  1132.     END;
  1133.  
  1134.     VdigTypePtr = ^VdigType;
  1135.     VdigType = RECORD
  1136.         digType:                LONGINT;
  1137.         reserved:                LONGINT;
  1138.     END;
  1139.  
  1140.     VdigTypeListPtr = ^VdigTypeList;
  1141.     VdigTypeList = RECORD
  1142.         count:                    INTEGER;
  1143.         list:                    ARRAY [0..0] OF VdigType;
  1144.     END;
  1145.  
  1146.     VdigBufferRecPtr = ^VdigBufferRec;
  1147.     VdigBufferRec = RECORD
  1148.         dest:                    PixMapHandle;
  1149.         location:                Point;
  1150.         reserved:                LONGINT;
  1151.     END;
  1152.  
  1153.     VdigBufferRecListPtr = ^VdigBufferRecList;
  1154.     VdigBufferRecList = RECORD
  1155.         count:                    INTEGER;
  1156.         matrix:                    MatrixRecordPtr;
  1157.         mask:                    RgnHandle;
  1158.         list:                    ARRAY [0..0] OF VdigBufferRec;
  1159.     END;
  1160.  
  1161.     VdigBufferRecListHandle                = ^VdigBufferRecListPtr;
  1162.     VdigIntProcPtr = ProcPtr;  { PROCEDURE VdigInt(flags: LONGINT; refcon: LONGINT); }
  1163.  
  1164.     VdigIntUPP = UniversalProcPtr;
  1165.     VDCompressionListPtr = ^VDCompressionList;
  1166.     VDCompressionList = RECORD
  1167.         codec:                    CodecComponent;
  1168.         cType:                    CodecType;
  1169.         typeName:                Str63;
  1170.         name:                    Str63;
  1171.         formatFlags:            LONGINT;
  1172.         compressFlags:            LONGINT;
  1173.         reserved:                LONGINT;
  1174.     END;
  1175.  
  1176.     VDCompressionListHandle                = ^VDCompressionListPtr;
  1177.  
  1178. CONST
  1179.     dmaDepth1                    = 1;
  1180.     dmaDepth2                    = 2;
  1181.     dmaDepth4                    = 4;
  1182.     dmaDepth8                    = 8;
  1183.     dmaDepth16                    = 16;
  1184.     dmaDepth32                    = 32;
  1185.     dmaDepth2Gray                = 64;
  1186.     dmaDepth4Gray                = 128;
  1187.     dmaDepth8Gray                = 256;
  1188.  
  1189.     kVDIGControlledFrameRate    = -1;
  1190.  
  1191. {  number of vdig calls }
  1192.     kvdigSelectors                = 86;
  1193.  
  1194. FUNCTION VDGetMaxSrcRect(ci: VideoDigitizerComponent; inputStd: INTEGER; VAR maxSrcRect: Rect): VideoDigitizerError;
  1195.     {$IFC NOT GENERATINGCFM}
  1196.     INLINE $2F3C, $0006, $0001, $7000, $A82A;
  1197.     {$ENDC}
  1198. FUNCTION VDGetActiveSrcRect(ci: VideoDigitizerComponent; inputStd: INTEGER; VAR activeSrcRect: Rect): VideoDigitizerError;
  1199.     {$IFC NOT GENERATINGCFM}
  1200.     INLINE $2F3C, $0006, $0002, $7000, $A82A;
  1201.     {$ENDC}
  1202. FUNCTION VDSetDigitizerRect(ci: VideoDigitizerComponent; VAR digitizerRect: Rect): VideoDigitizerError;
  1203.     {$IFC NOT GENERATINGCFM}
  1204.     INLINE $2F3C, $0004, $0003, $7000, $A82A;
  1205.     {$ENDC}
  1206. FUNCTION VDGetDigitizerRect(ci: VideoDigitizerComponent; VAR digitizerRect: Rect): VideoDigitizerError;
  1207.     {$IFC NOT GENERATINGCFM}
  1208.     INLINE $2F3C, $0004, $0004, $7000, $A82A;
  1209.     {$ENDC}
  1210. FUNCTION VDGetVBlankRect(ci: VideoDigitizerComponent; inputStd: INTEGER; VAR vBlankRect: Rect): VideoDigitizerError;
  1211.     {$IFC NOT GENERATINGCFM}
  1212.     INLINE $2F3C, $0006, $0005, $7000, $A82A;
  1213.     {$ENDC}
  1214. FUNCTION VDGetMaskPixMap(ci: VideoDigitizerComponent; maskPixMap: PixMapHandle): VideoDigitizerError;
  1215.     {$IFC NOT GENERATINGCFM}
  1216.     INLINE $2F3C, $0004, $0006, $7000, $A82A;
  1217.     {$ENDC}
  1218. FUNCTION VDGetPlayThruDestination(ci: VideoDigitizerComponent; VAR dest: PixMapHandle; VAR destRect: Rect; VAR m: MatrixRecord; VAR mask: RgnHandle): VideoDigitizerError;
  1219.     {$IFC NOT GENERATINGCFM}
  1220.     INLINE $2F3C, $0010, $0008, $7000, $A82A;
  1221.     {$ENDC}
  1222. FUNCTION VDUseThisCLUT(ci: VideoDigitizerComponent; colorTableHandle: CTabHandle): VideoDigitizerError;
  1223.     {$IFC NOT GENERATINGCFM}
  1224.     INLINE $2F3C, $0004, $0009, $7000, $A82A;
  1225.     {$ENDC}
  1226. FUNCTION VDSetInputGammaValue(ci: VideoDigitizerComponent; channel1: Fixed; channel2: Fixed; channel3: Fixed): VideoDigitizerError;
  1227.     {$IFC NOT GENERATINGCFM}
  1228.     INLINE $2F3C, $000C, $000A, $7000, $A82A;
  1229.     {$ENDC}
  1230. FUNCTION VDGetInputGammaValue(ci: VideoDigitizerComponent; VAR channel1: Fixed; VAR channel2: Fixed; VAR channel3: Fixed): VideoDigitizerError;
  1231.     {$IFC NOT GENERATINGCFM}
  1232.     INLINE $2F3C, $000C, $000B, $7000, $A82A;
  1233.     {$ENDC}
  1234. FUNCTION VDSetBrightness(ci: VideoDigitizerComponent; VAR brightness: INTEGER): VideoDigitizerError;
  1235.     {$IFC NOT GENERATINGCFM}
  1236.     INLINE $2F3C, $0004, $000C, $7000, $A82A;
  1237.     {$ENDC}
  1238. FUNCTION VDGetBrightness(ci: VideoDigitizerComponent; VAR brightness: INTEGER): VideoDigitizerError;
  1239.     {$IFC NOT GENERATINGCFM}
  1240.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  1241.     {$ENDC}
  1242. FUNCTION VDSetContrast(ci: VideoDigitizerComponent; VAR contrast: INTEGER): VideoDigitizerError;
  1243.     {$IFC NOT GENERATINGCFM}
  1244.     INLINE $2F3C, $0004, $000E, $7000, $A82A;
  1245.     {$ENDC}
  1246. FUNCTION VDSetHue(ci: VideoDigitizerComponent; VAR hue: INTEGER): VideoDigitizerError;
  1247.     {$IFC NOT GENERATINGCFM}
  1248.     INLINE $2F3C, $0004, $000F, $7000, $A82A;
  1249.     {$ENDC}
  1250. FUNCTION VDSetSharpness(ci: VideoDigitizerComponent; VAR sharpness: INTEGER): VideoDigitizerError;
  1251.     {$IFC NOT GENERATINGCFM}
  1252.     INLINE $2F3C, $0004, $0010, $7000, $A82A;
  1253.     {$ENDC}
  1254. FUNCTION VDSetSaturation(ci: VideoDigitizerComponent; VAR saturation: INTEGER): VideoDigitizerError;
  1255.     {$IFC NOT GENERATINGCFM}
  1256.     INLINE $2F3C, $0004, $0011, $7000, $A82A;
  1257.     {$ENDC}
  1258. FUNCTION VDGetContrast(ci: VideoDigitizerComponent; VAR contrast: INTEGER): VideoDigitizerError;
  1259.     {$IFC NOT GENERATINGCFM}
  1260.     INLINE $2F3C, $0004, $0012, $7000, $A82A;
  1261.     {$ENDC}
  1262. FUNCTION VDGetHue(ci: VideoDigitizerComponent; VAR hue: INTEGER): VideoDigitizerError;
  1263.     {$IFC NOT GENERATINGCFM}
  1264.     INLINE $2F3C, $0004, $0013, $7000, $A82A;
  1265.     {$ENDC}
  1266. FUNCTION VDGetSharpness(ci: VideoDigitizerComponent; VAR sharpness: INTEGER): VideoDigitizerError;
  1267.     {$IFC NOT GENERATINGCFM}
  1268.     INLINE $2F3C, $0004, $0014, $7000, $A82A;
  1269.     {$ENDC}
  1270. FUNCTION VDGetSaturation(ci: VideoDigitizerComponent; VAR saturation: INTEGER): VideoDigitizerError;
  1271.     {$IFC NOT GENERATINGCFM}
  1272.     INLINE $2F3C, $0004, $0015, $7000, $A82A;
  1273.     {$ENDC}
  1274. FUNCTION VDGrabOneFrame(ci: VideoDigitizerComponent): VideoDigitizerError;
  1275.     {$IFC NOT GENERATINGCFM}
  1276.     INLINE $2F3C, $0000, $0016, $7000, $A82A;
  1277.     {$ENDC}
  1278. FUNCTION VDGetMaxAuxBuffer(ci: VideoDigitizerComponent; VAR pm: PixMapHandle; VAR r: Rect): VideoDigitizerError;
  1279.     {$IFC NOT GENERATINGCFM}
  1280.     INLINE $2F3C, $0008, $0017, $7000, $A82A;
  1281.     {$ENDC}
  1282. FUNCTION VDGetDigitizerInfo(ci: VideoDigitizerComponent; VAR info: DigitizerInfo): VideoDigitizerError;
  1283.     {$IFC NOT GENERATINGCFM}
  1284.     INLINE $2F3C, $0004, $0019, $7000, $A82A;
  1285.     {$ENDC}
  1286. FUNCTION VDGetCurrentFlags(ci: VideoDigitizerComponent; VAR inputCurrentFlag: LONGINT; VAR outputCurrentFlag: LONGINT): VideoDigitizerError;
  1287.     {$IFC NOT GENERATINGCFM}
  1288.     INLINE $2F3C, $0008, $001A, $7000, $A82A;
  1289.     {$ENDC}
  1290. FUNCTION VDSetKeyColor(ci: VideoDigitizerComponent; index: LONGINT): VideoDigitizerError;
  1291.     {$IFC NOT GENERATINGCFM}
  1292.     INLINE $2F3C, $0004, $001B, $7000, $A82A;
  1293.     {$ENDC}
  1294. FUNCTION VDGetKeyColor(ci: VideoDigitizerComponent; VAR index: LONGINT): VideoDigitizerError;
  1295.     {$IFC NOT GENERATINGCFM}
  1296.     INLINE $2F3C, $0004, $001C, $7000, $A82A;
  1297.     {$ENDC}
  1298. FUNCTION VDAddKeyColor(ci: VideoDigitizerComponent; VAR index: LONGINT): VideoDigitizerError;
  1299.     {$IFC NOT GENERATINGCFM}
  1300.     INLINE $2F3C, $0004, $001D, $7000, $A82A;
  1301.     {$ENDC}
  1302. FUNCTION VDGetNextKeyColor(ci: VideoDigitizerComponent; index: LONGINT): VideoDigitizerError;
  1303.     {$IFC NOT GENERATINGCFM}
  1304.     INLINE $2F3C, $0004, $001E, $7000, $A82A;
  1305.     {$ENDC}
  1306. FUNCTION VDSetKeyColorRange(ci: VideoDigitizerComponent; VAR minRGB: RGBColor; VAR maxRGB: RGBColor): VideoDigitizerError;
  1307.     {$IFC NOT GENERATINGCFM}
  1308.     INLINE $2F3C, $0008, $001F, $7000, $A82A;
  1309.     {$ENDC}
  1310. FUNCTION VDGetKeyColorRange(ci: VideoDigitizerComponent; VAR minRGB: RGBColor; VAR maxRGB: RGBColor): VideoDigitizerError;
  1311.     {$IFC NOT GENERATINGCFM}
  1312.     INLINE $2F3C, $0008, $0020, $7000, $A82A;
  1313.     {$ENDC}
  1314. FUNCTION VDSetDigitizerUserInterrupt(ci: VideoDigitizerComponent; flags: LONGINT; userInterruptProc: VdigIntUPP; refcon: LONGINT): VideoDigitizerError;
  1315.     {$IFC NOT GENERATINGCFM}
  1316.     INLINE $2F3C, $000C, $0021, $7000, $A82A;
  1317.     {$ENDC}
  1318. FUNCTION VDSetInputColorSpaceMode(ci: VideoDigitizerComponent; colorSpaceMode: INTEGER): VideoDigitizerError;
  1319.     {$IFC NOT GENERATINGCFM}
  1320.     INLINE $2F3C, $0002, $0022, $7000, $A82A;
  1321.     {$ENDC}
  1322. FUNCTION VDGetInputColorSpaceMode(ci: VideoDigitizerComponent; VAR colorSpaceMode: INTEGER): VideoDigitizerError;
  1323.     {$IFC NOT GENERATINGCFM}
  1324.     INLINE $2F3C, $0004, $0023, $7000, $A82A;
  1325.     {$ENDC}
  1326. FUNCTION VDSetClipState(ci: VideoDigitizerComponent; clipEnable: INTEGER): VideoDigitizerError;
  1327.     {$IFC NOT GENERATINGCFM}
  1328.     INLINE $2F3C, $0002, $0024, $7000, $A82A;
  1329.     {$ENDC}
  1330. FUNCTION VDGetClipState(ci: VideoDigitizerComponent; VAR clipEnable: INTEGER): VideoDigitizerError;
  1331.     {$IFC NOT GENERATINGCFM}
  1332.     INLINE $2F3C, $0004, $0025, $7000, $A82A;
  1333.     {$ENDC}
  1334. FUNCTION VDSetClipRgn(ci: VideoDigitizerComponent; clipRegion: RgnHandle): VideoDigitizerError;
  1335.     {$IFC NOT GENERATINGCFM}
  1336.     INLINE $2F3C, $0004, $0026, $7000, $A82A;
  1337.     {$ENDC}
  1338. FUNCTION VDClearClipRgn(ci: VideoDigitizerComponent; clipRegion: RgnHandle): VideoDigitizerError;
  1339.     {$IFC NOT GENERATINGCFM}
  1340.     INLINE $2F3C, $0004, $0027, $7000, $A82A;
  1341.     {$ENDC}
  1342. FUNCTION VDGetCLUTInUse(ci: VideoDigitizerComponent; VAR colorTableHandle: CTabHandle): VideoDigitizerError;
  1343.     {$IFC NOT GENERATINGCFM}
  1344.     INLINE $2F3C, $0004, $0028, $7000, $A82A;
  1345.     {$ENDC}
  1346. FUNCTION VDSetPLLFilterType(ci: VideoDigitizerComponent; pllType: INTEGER): VideoDigitizerError;
  1347.     {$IFC NOT GENERATINGCFM}
  1348.     INLINE $2F3C, $0002, $0029, $7000, $A82A;
  1349.     {$ENDC}
  1350. FUNCTION VDGetPLLFilterType(ci: VideoDigitizerComponent; VAR pllType: INTEGER): VideoDigitizerError;
  1351.     {$IFC NOT GENERATINGCFM}
  1352.     INLINE $2F3C, $0004, $002A, $7000, $A82A;
  1353.     {$ENDC}
  1354. FUNCTION VDGetMaskandValue(ci: VideoDigitizerComponent; blendLevel: INTEGER; VAR mask: LONGINT; VAR value: LONGINT): VideoDigitizerError;
  1355.     {$IFC NOT GENERATINGCFM}
  1356.     INLINE $2F3C, $000A, $002B, $7000, $A82A;
  1357.     {$ENDC}
  1358. FUNCTION VDSetMasterBlendLevel(ci: VideoDigitizerComponent; VAR blendLevel: INTEGER): VideoDigitizerError;
  1359.     {$IFC NOT GENERATINGCFM}
  1360.     INLINE $2F3C, $0004, $002C, $7000, $A82A;
  1361.     {$ENDC}
  1362. FUNCTION VDSetPlayThruDestination(ci: VideoDigitizerComponent; dest: PixMapHandle; VAR destRect: Rect; VAR m: MatrixRecord; mask: RgnHandle): VideoDigitizerError;
  1363.     {$IFC NOT GENERATINGCFM}
  1364.     INLINE $2F3C, $0010, $002D, $7000, $A82A;
  1365.     {$ENDC}
  1366. FUNCTION VDSetPlayThruOnOff(ci: VideoDigitizerComponent; state: INTEGER): VideoDigitizerError;
  1367.     {$IFC NOT GENERATINGCFM}
  1368.     INLINE $2F3C, $0002, $002E, $7000, $A82A;
  1369.     {$ENDC}
  1370. FUNCTION VDSetFieldPreference(ci: VideoDigitizerComponent; fieldFlag: INTEGER): VideoDigitizerError;
  1371.     {$IFC NOT GENERATINGCFM}
  1372.     INLINE $2F3C, $0002, $002F, $7000, $A82A;
  1373.     {$ENDC}
  1374. FUNCTION VDGetFieldPreference(ci: VideoDigitizerComponent; VAR fieldFlag: INTEGER): VideoDigitizerError;
  1375.     {$IFC NOT GENERATINGCFM}
  1376.     INLINE $2F3C, $0004, $0030, $7000, $A82A;
  1377.     {$ENDC}
  1378. FUNCTION VDPreflightDestination(ci: VideoDigitizerComponent; VAR digitizerRect: Rect; VAR dest: PixMapPtr; VAR destRect: Rect; VAR m: MatrixRecord): VideoDigitizerError;
  1379.     {$IFC NOT GENERATINGCFM}
  1380.     INLINE $2F3C, $0010, $0032, $7000, $A82A;
  1381.     {$ENDC}
  1382. FUNCTION VDPreflightGlobalRect(ci: VideoDigitizerComponent; theWindow: GrafPtr; VAR globalRect: Rect): VideoDigitizerError;
  1383.     {$IFC NOT GENERATINGCFM}
  1384.     INLINE $2F3C, $0008, $0033, $7000, $A82A;
  1385.     {$ENDC}
  1386. FUNCTION VDSetPlayThruGlobalRect(ci: VideoDigitizerComponent; theWindow: GrafPtr; VAR globalRect: Rect): VideoDigitizerError;
  1387.     {$IFC NOT GENERATINGCFM}
  1388.     INLINE $2F3C, $0008, $0034, $7000, $A82A;
  1389.     {$ENDC}
  1390. FUNCTION VDSetInputGammaRecord(ci: VideoDigitizerComponent; inputGammaPtr: VDGamRecPtr): VideoDigitizerError;
  1391.     {$IFC NOT GENERATINGCFM}
  1392.     INLINE $2F3C, $0004, $0035, $7000, $A82A;
  1393.     {$ENDC}
  1394. FUNCTION VDGetInputGammaRecord(ci: VideoDigitizerComponent; VAR inputGammaPtr: VDGamRecPtr): VideoDigitizerError;
  1395.     {$IFC NOT GENERATINGCFM}
  1396.     INLINE $2F3C, $0004, $0036, $7000, $A82A;
  1397.     {$ENDC}
  1398. FUNCTION VDSetBlackLevelValue(ci: VideoDigitizerComponent; VAR blackLevel: INTEGER): VideoDigitizerError;
  1399.     {$IFC NOT GENERATINGCFM}
  1400.     INLINE $2F3C, $0004, $0037, $7000, $A82A;
  1401.     {$ENDC}
  1402. FUNCTION VDGetBlackLevelValue(ci: VideoDigitizerComponent; VAR blackLevel: INTEGER): VideoDigitizerError;
  1403.     {$IFC NOT GENERATINGCFM}
  1404.     INLINE $2F3C, $0004, $0038, $7000, $A82A;
  1405.     {$ENDC}
  1406. FUNCTION VDSetWhiteLevelValue(ci: VideoDigitizerComponent; VAR whiteLevel: INTEGER): VideoDigitizerError;
  1407.     {$IFC NOT GENERATINGCFM}
  1408.     INLINE $2F3C, $0004, $0039, $7000, $A82A;
  1409.     {$ENDC}
  1410. FUNCTION VDGetWhiteLevelValue(ci: VideoDigitizerComponent; VAR whiteLevel: INTEGER): VideoDigitizerError;
  1411.     {$IFC NOT GENERATINGCFM}
  1412.     INLINE $2F3C, $0004, $003A, $7000, $A82A;
  1413.     {$ENDC}
  1414. FUNCTION VDGetVideoDefaults(ci: VideoDigitizerComponent; VAR blackLevel: INTEGER; VAR whiteLevel: INTEGER; VAR brightness: INTEGER; VAR hue: INTEGER; VAR saturation: INTEGER; VAR contrast: INTEGER; VAR sharpness: INTEGER): VideoDigitizerError;
  1415.     {$IFC NOT GENERATINGCFM}
  1416.     INLINE $2F3C, $001C, $003B, $7000, $A82A;
  1417.     {$ENDC}
  1418. FUNCTION VDGetNumberOfInputs(ci: VideoDigitizerComponent; VAR inputs: INTEGER): VideoDigitizerError;
  1419.     {$IFC NOT GENERATINGCFM}
  1420.     INLINE $2F3C, $0004, $003C, $7000, $A82A;
  1421.     {$ENDC}
  1422. FUNCTION VDGetInputFormat(ci: VideoDigitizerComponent; input: INTEGER; VAR format: INTEGER): VideoDigitizerError;
  1423.     {$IFC NOT GENERATINGCFM}
  1424.     INLINE $2F3C, $0006, $003D, $7000, $A82A;
  1425.     {$ENDC}
  1426. FUNCTION VDSetInput(ci: VideoDigitizerComponent; input: INTEGER): VideoDigitizerError;
  1427.     {$IFC NOT GENERATINGCFM}
  1428.     INLINE $2F3C, $0002, $003E, $7000, $A82A;
  1429.     {$ENDC}
  1430. FUNCTION VDGetInput(ci: VideoDigitizerComponent; VAR input: INTEGER): VideoDigitizerError;
  1431.     {$IFC NOT GENERATINGCFM}
  1432.     INLINE $2F3C, $0004, $003F, $7000, $A82A;
  1433.     {$ENDC}
  1434. FUNCTION VDSetInputStandard(ci: VideoDigitizerComponent; inputStandard: INTEGER): VideoDigitizerError;
  1435.     {$IFC NOT GENERATINGCFM}
  1436.     INLINE $2F3C, $0002, $0040, $7000, $A82A;
  1437.     {$ENDC}
  1438. FUNCTION VDSetupBuffers(ci: VideoDigitizerComponent; bufferList: VdigBufferRecListHandle): VideoDigitizerError;
  1439.     {$IFC NOT GENERATINGCFM}
  1440.     INLINE $2F3C, $0004, $0041, $7000, $A82A;
  1441.     {$ENDC}
  1442. FUNCTION VDGrabOneFrameAsync(ci: VideoDigitizerComponent; buffer: INTEGER): VideoDigitizerError;
  1443.     {$IFC NOT GENERATINGCFM}
  1444.     INLINE $2F3C, $0002, $0042, $7000, $A82A;
  1445.     {$ENDC}
  1446. FUNCTION VDDone(ci: VideoDigitizerComponent; buffer: INTEGER): VideoDigitizerError;
  1447.     {$IFC NOT GENERATINGCFM}
  1448.     INLINE $2F3C, $0002, $0043, $7000, $A82A;
  1449.     {$ENDC}
  1450. FUNCTION VDSetCompression(ci: VideoDigitizerComponent; compressType: OSType; depth: INTEGER; VAR bounds: Rect; spatialQuality: CodecQ; temporalQuality: CodecQ; keyFrameRate: LONGINT): VideoDigitizerError;
  1451.     {$IFC NOT GENERATINGCFM}
  1452.     INLINE $2F3C, $0016, $0044, $7000, $A82A;
  1453.     {$ENDC}
  1454. FUNCTION VDCompressOneFrameAsync(ci: VideoDigitizerComponent): VideoDigitizerError;
  1455.     {$IFC NOT GENERATINGCFM}
  1456.     INLINE $2F3C, $0000, $0045, $7000, $A82A;
  1457.     {$ENDC}
  1458. FUNCTION VDCompressDone(ci: VideoDigitizerComponent; VAR done: BOOLEAN; VAR theData: Ptr; VAR dataSize: LONGINT; VAR similarity: UInt8; VAR t: TimeRecord): VideoDigitizerError;
  1459.     {$IFC NOT GENERATINGCFM}
  1460.     INLINE $2F3C, $0014, $0046, $7000, $A82A;
  1461.     {$ENDC}
  1462. FUNCTION VDReleaseCompressBuffer(ci: VideoDigitizerComponent; bufferAddr: Ptr): VideoDigitizerError;
  1463.     {$IFC NOT GENERATINGCFM}
  1464.     INLINE $2F3C, $0004, $0047, $7000, $A82A;
  1465.     {$ENDC}
  1466. FUNCTION VDGetImageDescription(ci: VideoDigitizerComponent; desc: ImageDescriptionHandle): VideoDigitizerError;
  1467.     {$IFC NOT GENERATINGCFM}
  1468.     INLINE $2F3C, $0004, $0048, $7000, $A82A;
  1469.     {$ENDC}
  1470. FUNCTION VDResetCompressSequence(ci: VideoDigitizerComponent): VideoDigitizerError;
  1471.     {$IFC NOT GENERATINGCFM}
  1472.     INLINE $2F3C, $0000, $0049, $7000, $A82A;
  1473.     {$ENDC}
  1474. FUNCTION VDSetCompressionOnOff(ci: VideoDigitizerComponent; state: BOOLEAN): VideoDigitizerError;
  1475.     {$IFC NOT GENERATINGCFM}
  1476.     INLINE $2F3C, $0002, $004A, $7000, $A82A;
  1477.     {$ENDC}
  1478. FUNCTION VDGetCompressionTypes(ci: VideoDigitizerComponent; h: VDCompressionListHandle): VideoDigitizerError;
  1479.     {$IFC NOT GENERATINGCFM}
  1480.     INLINE $2F3C, $0004, $004B, $7000, $A82A;
  1481.     {$ENDC}
  1482. FUNCTION VDSetTimeBase(ci: VideoDigitizerComponent; t: TimeBase): VideoDigitizerError;
  1483.     {$IFC NOT GENERATINGCFM}
  1484.     INLINE $2F3C, $0004, $004C, $7000, $A82A;
  1485.     {$ENDC}
  1486. FUNCTION VDSetFrameRate(ci: VideoDigitizerComponent; framesPerSecond: Fixed): VideoDigitizerError;
  1487.     {$IFC NOT GENERATINGCFM}
  1488.     INLINE $2F3C, $0004, $004D, $7000, $A82A;
  1489.     {$ENDC}
  1490. FUNCTION VDGetDataRate(ci: VideoDigitizerComponent; VAR milliSecPerFrame: LONGINT; VAR framesPerSecond: Fixed; VAR bytesPerSecond: LONGINT): VideoDigitizerError;
  1491.     {$IFC NOT GENERATINGCFM}
  1492.     INLINE $2F3C, $000C, $004E, $7000, $A82A;
  1493.     {$ENDC}
  1494. FUNCTION VDGetSoundInputDriver(ci: VideoDigitizerComponent; VAR soundDriverName: Str255): VideoDigitizerError;
  1495.     {$IFC NOT GENERATINGCFM}
  1496.     INLINE $2F3C, $0004, $004F, $7000, $A82A;
  1497.     {$ENDC}
  1498. FUNCTION VDGetDMADepths(ci: VideoDigitizerComponent; VAR depthArray: LONGINT; VAR preferredDepth: LONGINT): VideoDigitizerError;
  1499.     {$IFC NOT GENERATINGCFM}
  1500.     INLINE $2F3C, $0008, $0050, $7000, $A82A;
  1501.     {$ENDC}
  1502. FUNCTION VDGetPreferredTimeScale(ci: VideoDigitizerComponent; VAR preferred: TimeScale): VideoDigitizerError;
  1503.     {$IFC NOT GENERATINGCFM}
  1504.     INLINE $2F3C, $0004, $0051, $7000, $A82A;
  1505.     {$ENDC}
  1506. FUNCTION VDReleaseAsyncBuffers(ci: VideoDigitizerComponent): VideoDigitizerError;
  1507.     {$IFC NOT GENERATINGCFM}
  1508.     INLINE $2F3C, $0000, $0052, $7000, $A82A;
  1509.     {$ENDC}
  1510. {  83 is reserved for compatibility reasons  }
  1511. FUNCTION VDSetDataRate(ci: VideoDigitizerComponent; bytesPerSecond: LONGINT): VideoDigitizerError;
  1512.     {$IFC NOT GENERATINGCFM}
  1513.     INLINE $2F3C, $0004, $0054, $7000, $A82A;
  1514.     {$ENDC}
  1515. FUNCTION VDGetTimeCode(ci: VideoDigitizerComponent; VAR atTime: TimeRecord; timeCodeFormat: UNIV Ptr; timeCodeTime: UNIV Ptr): VideoDigitizerError;
  1516.     {$IFC NOT GENERATINGCFM}
  1517.     INLINE $2F3C, $000C, $0055, $7000, $A82A;
  1518.     {$ENDC}
  1519. FUNCTION VDUseSafeBuffers(ci: VideoDigitizerComponent; useSafeBuffers: BOOLEAN): VideoDigitizerError;
  1520.     {$IFC NOT GENERATINGCFM}
  1521.     INLINE $2F3C, $0002, $0056, $7000, $A82A;
  1522.     {$ENDC}
  1523. FUNCTION VDGetSoundInputSource(ci: VideoDigitizerComponent; videoInput: LONGINT; VAR soundInput: LONGINT): VideoDigitizerError;
  1524.     {$IFC NOT GENERATINGCFM}
  1525.     INLINE $2F3C, $0008, $0057, $7000, $A82A;
  1526.     {$ENDC}
  1527. FUNCTION VDGetCompressionTime(ci: VideoDigitizerComponent; compressionType: OSType; depth: INTEGER; VAR srcRect: Rect; VAR spatialQuality: CodecQ; VAR temporalQuality: CodecQ; VAR compressTime: LONGINT): VideoDigitizerError;
  1528.     {$IFC NOT GENERATINGCFM}
  1529.     INLINE $2F3C, $0016, $0058, $7000, $A82A;
  1530.     {$ENDC}
  1531.  
  1532. CONST
  1533.     kSelectVDGetMaxSrcRect        = $01;
  1534.     kSelectVDGetActiveSrcRect    = $02;
  1535.     kSelectVDSetDigitizerRect    = $03;
  1536.     kSelectVDGetDigitizerRect    = $04;
  1537.     kSelectVDGetVBlankRect        = $05;
  1538.     kSelectVDGetMaskPixMap        = $06;
  1539.     kSelectVDGetPlayThruDestination = $08;
  1540.     kSelectVDUseThisCLUT        = $09;
  1541.     kSelectVDSetInputGammaValue    = $0A;
  1542.     kSelectVDGetInputGammaValue    = $0B;
  1543.     kSelectVDSetBrightness        = $0C;
  1544.     kSelectVDGetBrightness        = $0D;
  1545.     kSelectVDSetContrast        = $0E;
  1546.     kSelectVDSetHue                = $0F;
  1547.     kSelectVDSetSharpness        = $10;
  1548.     kSelectVDSetSaturation        = $11;
  1549.     kSelectVDGetContrast        = $12;
  1550.     kSelectVDGetHue                = $13;
  1551.     kSelectVDGetSharpness        = $14;
  1552.     kSelectVDGetSaturation        = $15;
  1553.     kSelectVDGrabOneFrame        = $16;
  1554.     kSelectVDGetMaxAuxBuffer    = $17;
  1555.     kSelectVDGetDigitizerInfo    = $19;
  1556.     kSelectVDGetCurrentFlags    = $1A;
  1557.     kSelectVDSetKeyColor        = $1B;
  1558.     kSelectVDGetKeyColor        = $1C;
  1559.     kSelectVDAddKeyColor        = $1D;
  1560.     kSelectVDGetNextKeyColor    = $1E;
  1561.     kSelectVDSetKeyColorRange    = $1F;
  1562.     kSelectVDGetKeyColorRange    = $20;
  1563.     kSelectVDSetDigitizerUserInterrupt = $21;
  1564.     kSelectVDSetInputColorSpaceMode = $22;
  1565.     kSelectVDGetInputColorSpaceMode = $23;
  1566.     kSelectVDSetClipState        = $24;
  1567.     kSelectVDGetClipState        = $25;
  1568.     kSelectVDSetClipRgn            = $26;
  1569.     kSelectVDClearClipRgn        = $27;
  1570.     kSelectVDGetCLUTInUse        = $28;
  1571.     kSelectVDSetPLLFilterType    = $29;
  1572.     kSelectVDGetPLLFilterType    = $2A;
  1573.     kSelectVDGetMaskandValue    = $2B;
  1574.     kSelectVDSetMasterBlendLevel = $2C;
  1575.     kSelectVDSetPlayThruDestination = $2D;
  1576.     kSelectVDSetPlayThruOnOff    = $2E;
  1577.     kSelectVDSetFieldPreference    = $2F;
  1578.     kSelectVDGetFieldPreference    = $30;
  1579.     kSelectVDPreflightDestination = $32;
  1580.     kSelectVDPreflightGlobalRect = $33;
  1581.     kSelectVDSetPlayThruGlobalRect = $34;
  1582.     kSelectVDSetInputGammaRecord = $35;
  1583.     kSelectVDGetInputGammaRecord = $36;
  1584.     kSelectVDSetBlackLevelValue    = $37;
  1585.     kSelectVDGetBlackLevelValue    = $38;
  1586.     kSelectVDSetWhiteLevelValue    = $39;
  1587.     kSelectVDGetWhiteLevelValue    = $3A;
  1588.     kSelectVDGetVideoDefaults    = $3B;
  1589.     kSelectVDGetNumberOfInputs    = $3C;
  1590.     kSelectVDGetInputFormat        = $3D;
  1591.     kSelectVDSetInput            = $3E;
  1592.     kSelectVDGetInput            = $3F;
  1593.     kSelectVDSetInputStandard    = $40;
  1594.     kSelectVDSetupBuffers        = $41;
  1595.     kSelectVDGrabOneFrameAsync    = $42;
  1596.     kSelectVDDone                = $43;
  1597.     kSelectVDSetCompression        = $44;
  1598.     kSelectVDCompressOneFrameAsync = $45;
  1599.     kSelectVDCompressDone        = $46;
  1600.     kSelectVDReleaseCompressBuffer = $47;
  1601.     kSelectVDGetImageDescription = $48;
  1602.     kSelectVDResetCompressSequence = $49;
  1603.     kSelectVDSetCompressionOnOff = $4A;
  1604.     kSelectVDGetCompressionTypes = $4B;
  1605.     kSelectVDSetTimeBase        = $4C;
  1606.     kSelectVDSetFrameRate        = $4D;
  1607.     kSelectVDGetDataRate        = $4E;
  1608.     kSelectVDGetSoundInputDriver = $4F;
  1609.     kSelectVDGetDMADepths        = $50;
  1610.     kSelectVDGetPreferredTimeScale = $51;
  1611.     kSelectVDReleaseAsyncBuffers = $52;
  1612.     kSelectVDSetDataRate        = $54;
  1613.     kSelectVDGetTimeCode        = $55;
  1614.     kSelectVDUseSafeBuffers        = $56;
  1615.     kSelectVDGetSoundInputSource = $57;
  1616.     kSelectVDGetCompressionTime    = $58;
  1617.  
  1618.     StandardCompressionType        = 'scdi';
  1619.     StandardCompressionSubType    = 'imag';
  1620.  
  1621.  
  1622. TYPE
  1623.     SCModalFilterProcPtr = ProcPtr;  { FUNCTION SCModalFilter(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refcon: LONGINT): BOOLEAN; }
  1624.  
  1625.     SCModalHookProcPtr = ProcPtr;  { FUNCTION SCModalHook(theDialog: DialogPtr; itemHit: INTEGER; params: UNIV Ptr; refcon: LONGINT): INTEGER; }
  1626.  
  1627.     SCModalFilterUPP = UniversalProcPtr;
  1628.     SCModalHookUPP = UniversalProcPtr;
  1629. {     Preference flags. }
  1630.  
  1631. CONST
  1632.     scListEveryCodec            = $00000002;
  1633.     scAllowZeroFrameRate        = $00000004;
  1634.     scAllowZeroKeyFrameRate        = $00000008;
  1635.     scShowBestDepth                = $00000010;
  1636.     scUseMovableModal            = $00000020;
  1637.  
  1638. {     Possible test flags for setting test image. }
  1639.     scPreferCropping            = $01;
  1640.     scPreferScaling                = $02;
  1641.     scPreferScalingAndCropping    = $03;
  1642.  
  1643. {     Dimensions of the image preview box. }
  1644.     scTestImageWidth            = 80;
  1645.     scTestImageHeight            = 80;
  1646.  
  1647. {     Possible items returned by hookProc. }
  1648.     scOKItem                    = 1;
  1649.     scCancelItem                = 2;
  1650.     scCustomItem                = 3;
  1651.  
  1652. {     Result returned when user cancelled. }
  1653.     scUserCancelled                = 1;
  1654.  
  1655. {     Get/SetInfo structures. }
  1656.  
  1657. TYPE
  1658.     SCSpatialSettingsPtr = ^SCSpatialSettings;
  1659.     SCSpatialSettings = RECORD
  1660.         codecType:                CodecType;
  1661.         codec:                    CodecComponent;
  1662.         depth:                    INTEGER;
  1663.         spatialQuality:            CodecQ;
  1664.     END;
  1665.  
  1666.     SCTemporalSettingsPtr = ^SCTemporalSettings;
  1667.     SCTemporalSettings = RECORD
  1668.         temporalQuality:        CodecQ;
  1669.         frameRate:                Fixed;
  1670.         keyFrameRate:            LONGINT;
  1671.     END;
  1672.  
  1673.     SCDataRateSettingsPtr = ^SCDataRateSettings;
  1674.     SCDataRateSettings = RECORD
  1675.         dataRate:                LONGINT;
  1676.         frameDuration:            LONGINT;
  1677.         minSpatialQuality:        CodecQ;
  1678.         minTemporalQuality:        CodecQ;
  1679.     END;
  1680.  
  1681.     SCExtendedProcsPtr = ^SCExtendedProcs;
  1682.     SCExtendedProcs = RECORD
  1683.         filterProc:                SCModalFilterUPP;
  1684.         hookProc:                SCModalHookUPP;
  1685.         refcon:                    LONGINT;
  1686.         customName:                Str31;
  1687.     END;
  1688.  
  1689. {     Get/SetInfo selectors }
  1690.  
  1691. CONST
  1692.     scSpatialSettingsType        = 'sptl';                        {  pointer to SCSpatialSettings struct }
  1693.     scTemporalSettingsType        = 'tprl';                        {  pointer to SCTemporalSettings struct }
  1694.     scDataRateSettingsType        = 'drat';                        {  pointer to SCDataRateSettings struct }
  1695.     scColorTableType            = 'clut';                        {  pointer to CTabHandle }
  1696.     scProgressProcType            = 'prog';                        {  pointer to ProgressRecord struct }
  1697.     scExtendedProcsType            = 'xprc';                        {  pointer to SCExtendedProcs struct }
  1698.     scPreferenceFlagsType        = 'pref';                        {  pointer to long }
  1699.     scSettingsStateType            = 'ssta';                        {  pointer to Handle }
  1700.     scSequenceIDType            = 'sequ';                        {  pointer to ImageSequence }
  1701.     scWindowPositionType        = 'wndw';                        {  pointer to Point }
  1702.     scCodecFlagsType            = 'cflg';                        {  pointer to CodecFlags }
  1703.     scCodecSettingsType            = 'cdec';                        {  pointer to Handle }
  1704.     scForceKeyValueType            = 'ksim';                        {  pointer to long }
  1705.  
  1706. {     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found. }
  1707. { * These are Progress procedures * }
  1708. FUNCTION SCPositionRect(ci: ComponentInstance; VAR rp: Rect; VAR where: Point): ComponentResult;
  1709.     {$IFC NOT GENERATINGCFM}
  1710.     INLINE $2F3C, $0008, $0002, $7000, $A82A;
  1711.     {$ENDC}
  1712. FUNCTION SCPositionDialog(ci: ComponentInstance; id: INTEGER; VAR where: Point): ComponentResult;
  1713.     {$IFC NOT GENERATINGCFM}
  1714.     INLINE $2F3C, $0006, $0003, $7000, $A82A;
  1715.     {$ENDC}
  1716. FUNCTION SCSetTestImagePictHandle(ci: ComponentInstance; testPict: PicHandle; VAR testRect: Rect; testFlags: INTEGER): ComponentResult;
  1717.     {$IFC NOT GENERATINGCFM}
  1718.     INLINE $2F3C, $000A, $0004, $7000, $A82A;
  1719.     {$ENDC}
  1720. FUNCTION SCSetTestImagePictFile(ci: ComponentInstance; testFileRef: INTEGER; VAR testRect: Rect; testFlags: INTEGER): ComponentResult;
  1721.     {$IFC NOT GENERATINGCFM}
  1722.     INLINE $2F3C, $0008, $0005, $7000, $A82A;
  1723.     {$ENDC}
  1724. FUNCTION SCSetTestImagePixMap(ci: ComponentInstance; testPixMap: PixMapHandle; VAR testRect: Rect; testFlags: INTEGER): ComponentResult;
  1725.     {$IFC NOT GENERATINGCFM}
  1726.     INLINE $2F3C, $000A, $0006, $7000, $A82A;
  1727.     {$ENDC}
  1728. FUNCTION SCGetBestDeviceRect(ci: ComponentInstance; VAR r: Rect): ComponentResult;
  1729.     {$IFC NOT GENERATINGCFM}
  1730.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  1731.     {$ENDC}
  1732. FUNCTION SCRequestImageSettings(ci: ComponentInstance): ComponentResult;
  1733.     {$IFC NOT GENERATINGCFM}
  1734.     INLINE $2F3C, $0000, $000A, $7000, $A82A;
  1735.     {$ENDC}
  1736. FUNCTION SCCompressImage(ci: ComponentInstance; src: PixMapHandle; {CONST}VAR srcRect: Rect; VAR desc: ImageDescriptionHandle; VAR data: Handle): ComponentResult;
  1737.     {$IFC NOT GENERATINGCFM}
  1738.     INLINE $2F3C, $0010, $000B, $7000, $A82A;
  1739.     {$ENDC}
  1740. FUNCTION SCCompressPicture(ci: ComponentInstance; srcPicture: PicHandle; dstPicture: PicHandle): ComponentResult;
  1741.     {$IFC NOT GENERATINGCFM}
  1742.     INLINE $2F3C, $0008, $000C, $7000, $A82A;
  1743.     {$ENDC}
  1744. FUNCTION SCCompressPictureFile(ci: ComponentInstance; srcRefNum: INTEGER; dstRefNum: INTEGER): ComponentResult;
  1745.     {$IFC NOT GENERATINGCFM}
  1746.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  1747.     {$ENDC}
  1748. FUNCTION SCRequestSequenceSettings(ci: ComponentInstance): ComponentResult;
  1749.     {$IFC NOT GENERATINGCFM}
  1750.     INLINE $2F3C, $0000, $000E, $7000, $A82A;
  1751.     {$ENDC}
  1752. FUNCTION SCCompressSequenceBegin(ci: ComponentInstance; src: PixMapHandle; {CONST}VAR srcRect: Rect; VAR desc: ImageDescriptionHandle): ComponentResult;
  1753.     {$IFC NOT GENERATINGCFM}
  1754.     INLINE $2F3C, $000C, $000F, $7000, $A82A;
  1755.     {$ENDC}
  1756. FUNCTION SCCompressSequenceFrame(ci: ComponentInstance; src: PixMapHandle; {CONST}VAR srcRect: Rect; VAR data: Handle; VAR dataSize: LONGINT; VAR notSyncFlag: INTEGER): ComponentResult;
  1757.     {$IFC NOT GENERATINGCFM}
  1758.     INLINE $2F3C, $0014, $0010, $7000, $A82A;
  1759.     {$ENDC}
  1760. FUNCTION SCCompressSequenceEnd(ci: ComponentInstance): ComponentResult;
  1761.     {$IFC NOT GENERATINGCFM}
  1762.     INLINE $2F3C, $0000, $0011, $7000, $A82A;
  1763.     {$ENDC}
  1764. FUNCTION SCDefaultPictHandleSettings(ci: ComponentInstance; srcPicture: PicHandle; motion: INTEGER): ComponentResult;
  1765.     {$IFC NOT GENERATINGCFM}
  1766.     INLINE $2F3C, $0006, $0012, $7000, $A82A;
  1767.     {$ENDC}
  1768. FUNCTION SCDefaultPictFileSettings(ci: ComponentInstance; srcRef: INTEGER; motion: INTEGER): ComponentResult;
  1769.     {$IFC NOT GENERATINGCFM}
  1770.     INLINE $2F3C, $0004, $0013, $7000, $A82A;
  1771.     {$ENDC}
  1772. FUNCTION SCDefaultPixMapSettings(ci: ComponentInstance; src: PixMapHandle; motion: INTEGER): ComponentResult;
  1773.     {$IFC NOT GENERATINGCFM}
  1774.     INLINE $2F3C, $0006, $0014, $7000, $A82A;
  1775.     {$ENDC}
  1776. FUNCTION SCGetInfo(ci: ComponentInstance; infoType: OSType; info: UNIV Ptr): ComponentResult;
  1777.     {$IFC NOT GENERATINGCFM}
  1778.     INLINE $2F3C, $0008, $0015, $7000, $A82A;
  1779.     {$ENDC}
  1780. FUNCTION SCSetInfo(ci: ComponentInstance; infoType: OSType; info: UNIV Ptr): ComponentResult;
  1781.     {$IFC NOT GENERATINGCFM}
  1782.     INLINE $2F3C, $0008, $0016, $7000, $A82A;
  1783.     {$ENDC}
  1784. FUNCTION SCNewGWorld(ci: ComponentInstance; VAR gwp: GWorldPtr; VAR rp: Rect; flags: GWorldFlags): ComponentResult;
  1785.     {$IFC NOT GENERATINGCFM}
  1786.     INLINE $2F3C, $000C, $0017, $7000, $A82A;
  1787.     {$ENDC}
  1788. FUNCTION SCSetCompressFlags(ci: ComponentInstance; flags: LONGINT): ComponentResult;
  1789.     {$IFC NOT GENERATINGCFM}
  1790.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  1791.     {$ENDC}
  1792. FUNCTION SCGetCompressFlags(ci: ComponentInstance; VAR flags: LONGINT): ComponentResult;
  1793.     {$IFC NOT GENERATINGCFM}
  1794.     INLINE $2F3C, $0004, $0019, $7000, $A82A;
  1795.     {$ENDC}
  1796.  
  1797. TYPE
  1798.     SCParamsPtr = ^SCParams;
  1799.     SCParams = RECORD
  1800.         flags:                    LONGINT;
  1801.         theCodecType:            CodecType;
  1802.         theCodec:                CodecComponent;
  1803.         spatialQuality:            CodecQ;
  1804.         temporalQuality:        CodecQ;
  1805.         depth:                    INTEGER;
  1806.         frameRate:                Fixed;
  1807.         keyFrameRate:            LONGINT;
  1808.         reserved1:                LONGINT;
  1809.         reserved2:                LONGINT;
  1810.     END;
  1811.  
  1812.  
  1813. CONST
  1814.     scGetCompression            = 1;
  1815.     scShowMotionSettings        = $00000001;
  1816.     scSettingsChangedItem        = -1;
  1817.  
  1818.     scCompressFlagIgnoreIdenticalFrames = 1;
  1819.  
  1820. FUNCTION SCGetCompressionExtended(ci: ComponentInstance; VAR params: SCParams; where: Point; filterProc: SCModalFilterUPP; hookProc: SCModalHookUPP; refcon: LONGINT; customName: StringPtr): ComponentResult;
  1821.     {$IFC NOT GENERATINGCFM}
  1822.     INLINE $2F3C, $0018, $0001, $7000, $A82A;
  1823.     {$ENDC}
  1824.  
  1825. CONST
  1826.     kSCPositionRectSelect        = $02;
  1827.     kSCPositionDialogSelect        = $03;
  1828.     kSCSetTestImagePictHandleSelect = $04;
  1829.     kSCSetTestImagePictFileSelect = $05;
  1830.     kSCSetTestImagePixMapSelect    = $06;
  1831.     kSCGetBestDeviceRectSelect    = $07;
  1832.     kSCRequestImageSettingsSelect = $0A;
  1833.     kSCCompressImageSelect        = $0B;
  1834.     kSCCompressPictureSelect    = $0C;
  1835.     kSCCompressPictureFileSelect = $0D;
  1836.     kSCRequestSequenceSettingsSelect = $0E;
  1837.     kSCCompressSequenceBeginSelect = $0F;
  1838.     kSCCompressSequenceFrameSelect = $10;
  1839.     kSCCompressSequenceEndSelect = $11;
  1840.     kSCDefaultPictHandleSettingsSelect = $12;
  1841.     kSCDefaultPictFileSettingsSelect = $13;
  1842.     kSCDefaultPixMapSettingsSelect = $14;
  1843.     kSCGetInfoSelect            = $15;
  1844.     kSCSetInfoSelect            = $16;
  1845.     kSCNewGWorldSelect            = $17;
  1846.     kSCSetCompressFlagsSelect    = $18;
  1847.     kSCGetCompressFlagsSelect    = $19;
  1848.     kSCGetCompressionExtendedSelect = $01;
  1849.  
  1850.  
  1851. TYPE
  1852.     MovieImportComponent                = ComponentInstance;
  1853.     MovieExportComponent                = ComponentInstance;
  1854.  
  1855. CONST
  1856.     MovieImportType                = 'eat ';
  1857.     MovieExportType                = 'spit';
  1858.  
  1859.     canMovieImportHandles        = $01;
  1860.     canMovieImportFiles            = $02;
  1861.     hasMovieImportUserInterface    = $04;
  1862.     canMovieExportHandles        = $08;
  1863.     canMovieExportFiles            = $10;
  1864.     hasMovieExportUserInterface    = $20;
  1865.     dontAutoFileMovieImport        = $40;
  1866.     canMovieExportAuxDataHandle    = $80;
  1867.     canMovieImportValidateHandles = $0100;
  1868.     canMovieImportValidateFile    = $0200;
  1869.     dontRegisterWithEasyOpen    = $0400;
  1870.     canMovieImportInPlace        = $0800;
  1871.     movieImportSubTypeIsFileExtension = $1000;
  1872.  
  1873.     kMovieImportExportOpenSelect = -1;
  1874.     kMovieImportExportCloseSelect = -2;
  1875.     kMovieImportExportCanDoSelect = -3;
  1876.     kMovieImportExportVersionSelect = -4;
  1877.     kMovieImportExportTargetSelect = -6;
  1878.     kMovieImportHandleSelect    = 1;
  1879.     kMovieImportFileSelect        = 2;
  1880.     kMovieImportSetSampleDurationSelect = 3;
  1881.     kMovieImportSetSampleDescriptionSelect = 4;
  1882.     kMovieImportSetMediaFileSelect = 5;
  1883.     kMovieImportSetDimensionsSelect = 6;
  1884.     kMovieImportSetChunkSizeSelect = 7;
  1885.     kMovieImportSetProgressProcSelect = 8;
  1886.     kMovieImportSetAuxiliaryDataSelect = 9;
  1887.     kMovieImportSetFromScrapSelect = 10;
  1888.     kMovieImportDoUserDialogSelect = 11;
  1889.     kMovieImportSetDurationSelect = 12;
  1890.     kMovieImportGetAuxiliaryDataTypeSelect = 13;
  1891.     kMovieImportValidateSelect    = 14;
  1892.     kMovieImportGetFileTypeSelect = 15;
  1893.     kMovieExportToHandleSelect    = 128;
  1894.     kMovieExportToFileSelect    = 129;
  1895.     kMovieExportDoUserDialogSelectOBSOLETE = 130;
  1896.     kMovieExportGetAuxiliaryDataSelect = 131;
  1897.     kMovieExportSetProgressProcSelect = 132;
  1898.     kMovieExportSetSampleDescriptionSelect = 133;
  1899.     kMovieExportDoUserDialogSelect = 134;
  1900.     kMovieExportGetCreatorTypeSelect = 135;
  1901.  
  1902.     movieImportCreateTrack        = 1;
  1903.     movieImportInParallel        = 2;
  1904.     movieImportMustUseTrack        = 4;
  1905.  
  1906.     movieImportResultUsedMultipleTracks = 8;
  1907.  
  1908.     kMovieExportTextOnly        = 0;
  1909.     kMovieExportAbsoluteTime    = 1;
  1910.     kMovieExportRelativeTime    = 2;
  1911.  
  1912. FUNCTION MovieImportHandle(ci: MovieImportComponent; dataH: Handle; theMovie: Movie; targetTrack: Track; VAR usedTrack: Track; atTime: TimeValue; VAR addedDuration: TimeValue; inFlags: LONGINT; VAR outFlags: LONGINT): ComponentResult;
  1913.     {$IFC NOT GENERATINGCFM}
  1914.     INLINE $2F3C, $0020, $0001, $7000, $A82A;
  1915.     {$ENDC}
  1916. FUNCTION MovieImportFile(ci: MovieImportComponent; {CONST}VAR theFile: FSSpec; theMovie: Movie; targetTrack: Track; VAR usedTrack: Track; atTime: TimeValue; VAR addedDuration: TimeValue; inFlags: LONGINT; VAR outFlags: LONGINT): ComponentResult;
  1917.     {$IFC NOT GENERATINGCFM}
  1918.     INLINE $2F3C, $0020, $0002, $7000, $A82A;
  1919.     {$ENDC}
  1920. FUNCTION MovieImportSetSampleDuration(ci: MovieImportComponent; duration: TimeValue; scale: TimeScale): ComponentResult;
  1921.     {$IFC NOT GENERATINGCFM}
  1922.     INLINE $2F3C, $0008, $0003, $7000, $A82A;
  1923.     {$ENDC}
  1924. FUNCTION MovieImportSetSampleDescription(ci: MovieImportComponent; desc: SampleDescriptionHandle; mediaType: OSType): ComponentResult;
  1925.     {$IFC NOT GENERATINGCFM}
  1926.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  1927.     {$ENDC}
  1928. FUNCTION MovieImportSetMediaFile(ci: MovieImportComponent; alias: AliasHandle): ComponentResult;
  1929.     {$IFC NOT GENERATINGCFM}
  1930.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  1931.     {$ENDC}
  1932. FUNCTION MovieImportSetDimensions(ci: MovieImportComponent; width: Fixed; height: Fixed): ComponentResult;
  1933.     {$IFC NOT GENERATINGCFM}
  1934.     INLINE $2F3C, $0008, $0006, $7000, $A82A;
  1935.     {$ENDC}
  1936. FUNCTION MovieImportSetChunkSize(ci: MovieImportComponent; chunkSize: LONGINT): ComponentResult;
  1937.     {$IFC NOT GENERATINGCFM}
  1938.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  1939.     {$ENDC}
  1940. FUNCTION MovieImportSetProgressProc(ci: MovieImportComponent; proc: MovieProgressUPP; refcon: LONGINT): ComponentResult;
  1941.     {$IFC NOT GENERATINGCFM}
  1942.     INLINE $2F3C, $0008, $0008, $7000, $A82A;
  1943.     {$ENDC}
  1944. FUNCTION MovieImportSetAuxiliaryData(ci: MovieImportComponent; data: Handle; handleType: OSType): ComponentResult;
  1945.     {$IFC NOT GENERATINGCFM}
  1946.     INLINE $2F3C, $0008, $0009, $7000, $A82A;
  1947.     {$ENDC}
  1948. FUNCTION MovieImportSetFromScrap(ci: MovieImportComponent; fromScrap: BOOLEAN): ComponentResult;
  1949.     {$IFC NOT GENERATINGCFM}
  1950.     INLINE $2F3C, $0002, $000A, $7000, $A82A;
  1951.     {$ENDC}
  1952. FUNCTION MovieImportDoUserDialog(ci: MovieImportComponent; {CONST}VAR theFile: FSSpec; theData: Handle; VAR canceled: BOOLEAN): ComponentResult;
  1953.     {$IFC NOT GENERATINGCFM}
  1954.     INLINE $2F3C, $000C, $000B, $7000, $A82A;
  1955.     {$ENDC}
  1956. FUNCTION MovieImportSetDuration(ci: MovieImportComponent; duration: TimeValue): ComponentResult;
  1957.     {$IFC NOT GENERATINGCFM}
  1958.     INLINE $2F3C, $0004, $000C, $7000, $A82A;
  1959.     {$ENDC}
  1960. FUNCTION MovieImportGetAuxiliaryDataType(ci: MovieImportComponent; VAR auxType: OSType): ComponentResult;
  1961.     {$IFC NOT GENERATINGCFM}
  1962.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  1963.     {$ENDC}
  1964. FUNCTION MovieImportValidate(ci: MovieImportComponent; {CONST}VAR theFile: FSSpec; theData: Handle; VAR valid: BOOLEAN): ComponentResult;
  1965.     {$IFC NOT GENERATINGCFM}
  1966.     INLINE $2F3C, $000C, $000E, $7000, $A82A;
  1967.     {$ENDC}
  1968. FUNCTION MovieImportGetFileType(ci: MovieImportComponent; VAR fileType: OSType): ComponentResult;
  1969.     {$IFC NOT GENERATINGCFM}
  1970.     INLINE $2F3C, $0004, $000F, $7000, $A82A;
  1971.     {$ENDC}
  1972. FUNCTION MovieExportToHandle(ci: MovieExportComponent; dataH: Handle; theMovie: Movie; onlyThisTrack: Track; startTime: TimeValue; duration: TimeValue): ComponentResult;
  1973.     {$IFC NOT GENERATINGCFM}
  1974.     INLINE $2F3C, $0014, $0080, $7000, $A82A;
  1975.     {$ENDC}
  1976. FUNCTION MovieExportToFile(ci: MovieExportComponent; {CONST}VAR theFile: FSSpec; theMovie: Movie; onlyThisTrack: Track; startTime: TimeValue; duration: TimeValue): ComponentResult;
  1977.     {$IFC NOT GENERATINGCFM}
  1978.     INLINE $2F3C, $0014, $0081, $7000, $A82A;
  1979.     {$ENDC}
  1980. FUNCTION MovieExportGetAuxiliaryData(ci: MovieExportComponent; dataH: Handle; VAR handleType: OSType): ComponentResult;
  1981.     {$IFC NOT GENERATINGCFM}
  1982.     INLINE $2F3C, $0008, $0083, $7000, $A82A;
  1983.     {$ENDC}
  1984. FUNCTION MovieExportSetProgressProc(ci: MovieExportComponent; proc: MovieProgressUPP; refcon: LONGINT): ComponentResult;
  1985.     {$IFC NOT GENERATINGCFM}
  1986.     INLINE $2F3C, $0008, $0084, $7000, $A82A;
  1987.     {$ENDC}
  1988. FUNCTION MovieExportSetSampleDescription(ci: MovieExportComponent; desc: SampleDescriptionHandle; mediaType: OSType): ComponentResult;
  1989.     {$IFC NOT GENERATINGCFM}
  1990.     INLINE $2F3C, $0008, $0085, $7000, $A82A;
  1991.     {$ENDC}
  1992. FUNCTION MovieExportDoUserDialog(ci: MovieExportComponent; theMovie: Movie; onlyThisTrack: Track; startTime: TimeValue; duration: TimeValue; VAR canceled: BOOLEAN): ComponentResult;
  1993.     {$IFC NOT GENERATINGCFM}
  1994.     INLINE $2F3C, $0014, $0086, $7000, $A82A;
  1995.     {$ENDC}
  1996. FUNCTION MovieExportGetCreatorType(ci: MovieExportComponent; VAR creator: OSType): ComponentResult;
  1997.     {$IFC NOT GENERATINGCFM}
  1998.     INLINE $2F3C, $0004, $0087, $7000, $A82A;
  1999.     {$ENDC}
  2000. {  Text Export Display Info data structure }
  2001.  
  2002. TYPE
  2003.     TextDisplayDataPtr = ^TextDisplayData;
  2004.     TextDisplayData = RECORD
  2005.         displayFlags:            LONGINT;
  2006.         textJustification:        LONGINT;
  2007.         bgColor:                RGBColor;
  2008.         textBox:                Rect;
  2009.         beginHilite:            INTEGER;
  2010.         endHilite:                INTEGER;
  2011.         hiliteColor:            RGBColor;
  2012.         doHiliteColor:            BOOLEAN;
  2013.         filler:                    SInt8;
  2014.         scrollDelayDur:            TimeValue;
  2015.         dropShadowOffset:        Point;
  2016.         dropShadowTransparency:    INTEGER;
  2017.     END;
  2018.  
  2019.     TextExportComponent                    = ComponentInstance;
  2020. FUNCTION TextExportGetDisplayData(ci: TextExportComponent; VAR textDisplay: TextDisplayData): ComponentResult;
  2021.     {$IFC NOT GENERATINGCFM}
  2022.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  2023.     {$ENDC}
  2024. FUNCTION TextExportGetTimeFraction(ci: TextExportComponent; VAR movieTimeFraction: LONGINT): ComponentResult;
  2025.     {$IFC NOT GENERATINGCFM}
  2026.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  2027.     {$ENDC}
  2028. FUNCTION TextExportSetTimeFraction(ci: TextExportComponent; movieTimeFraction: LONGINT): ComponentResult;
  2029.     {$IFC NOT GENERATINGCFM}
  2030.     INLINE $2F3C, $0004, $0102, $7000, $A82A;
  2031.     {$ENDC}
  2032. FUNCTION TextExportGetSettings(ci: TextExportComponent; VAR setting: LONGINT): ComponentResult;
  2033.     {$IFC NOT GENERATINGCFM}
  2034.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  2035.     {$ENDC}
  2036. FUNCTION TextExportSetSettings(ci: TextExportComponent; setting: LONGINT): ComponentResult;
  2037.     {$IFC NOT GENERATINGCFM}
  2038.     INLINE $2F3C, $0004, $0104, $7000, $A82A;
  2039.     {$ENDC}
  2040. {
  2041. **************
  2042.  
  2043.     File Preview Components
  2044.  
  2045. **************
  2046. }
  2047.  
  2048. TYPE
  2049.     pnotComponent                        = ComponentInstance;
  2050.  
  2051. CONST
  2052.     pnotComponentWantsEvents    = 1;
  2053.     pnotComponentNeedsNoCache    = 2;
  2054.  
  2055.     kPreviewOpenSelector        = 0;
  2056.     kPreviewCloseSelector        = -1;
  2057.     kPreviewCanDoSelector        = -2;
  2058.     kPreviewVersionSelector        = -3;
  2059.     kPreviewShowDataSelector    = 1;
  2060.     kPreviewMakePreviewSelector    = 2;
  2061.     kPreviewMakePreviewReferenceSelector = 3;
  2062.     kPreviewEventSelector        = 4;
  2063.  
  2064.     ShowFilePreviewComponentType = 'pnot';
  2065.     CreateFilePreviewComponentType = 'pmak';
  2066.  
  2067. FUNCTION PreviewShowData(p: pnotComponent; dataType: OSType; data: Handle; {CONST}VAR inHere: Rect): ComponentResult;
  2068.     {$IFC NOT GENERATINGCFM}
  2069.     INLINE $2F3C, $000C, $0001, $7000, $A82A;
  2070.     {$ENDC}
  2071. FUNCTION PreviewMakePreview(p: pnotComponent; VAR previewType: OSType; VAR previewResult: Handle; {CONST}VAR sourceFile: FSSpec; progress: ICMProgressProcRecordPtr): ComponentResult;
  2072.     {$IFC NOT GENERATINGCFM}
  2073.     INLINE $2F3C, $0010, $0002, $7000, $A82A;
  2074.     {$ENDC}
  2075. FUNCTION PreviewMakePreviewReference(p: pnotComponent; VAR previewType: OSType; VAR resID: INTEGER; {CONST}VAR sourceFile: FSSpec): ComponentResult;
  2076.     {$IFC NOT GENERATINGCFM}
  2077.     INLINE $2F3C, $000C, $0003, $7000, $A82A;
  2078.     {$ENDC}
  2079. FUNCTION PreviewEvent(p: pnotComponent; VAR e: EventRecord; VAR handledEvent: BOOLEAN): ComponentResult;
  2080.     {$IFC NOT GENERATINGCFM}
  2081.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  2082.     {$ENDC}
  2083.  
  2084. TYPE
  2085.     DataHCompletionProcPtr = ProcPtr;  { PROCEDURE DataHCompletion(request: Ptr; refcon: LONGINT; err: OSErr); }
  2086.  
  2087.     DataHCompletionUPP = UniversalProcPtr;
  2088.  
  2089. CONST
  2090.     kDataHCanRead                = $00000001;
  2091.     kDataHSpecialRead            = $00000002;
  2092.     kDataHSpecialReadFile        = $00000004;
  2093.     kDataHCanWrite                = $00000008;
  2094.     kDataHSpecialWrite            = $10;
  2095.     kDataHSpecialWriteFile        = $20;
  2096.     kDataHCanStreamingWrite        = $40;
  2097.     kDataHMustCheckDataRef        = $80;
  2098.  
  2099.  
  2100. TYPE
  2101.     DataHVolumeListRecordPtr = ^DataHVolumeListRecord;
  2102.     DataHVolumeListRecord = RECORD
  2103.         vRefNum:                INTEGER;
  2104.         flags:                    LONGINT;
  2105.     END;
  2106.  
  2107.     DataHVolumeListPtr                    = ^DataHVolumeListRecord;
  2108.     DataHVolumeList                        = ^DataHVolumeListPtr;
  2109.  
  2110. CONST
  2111.     kDataHExtendedSchedule        = 'xtnd';
  2112.  
  2113.  
  2114. TYPE
  2115.     DataHScheduleRecordPtr = ^DataHScheduleRecord;
  2116.     DataHScheduleRecord = RECORD
  2117.         timeNeededBy:            TimeRecord;
  2118.         extendedID:                LONGINT;                                {  always is kDataHExtendedSchedule }
  2119.         extendedVers:            LONGINT;                                {  always set to 0 }
  2120.         priority:                Fixed;                                    {  100.0 or more means must have. lower numbers... }
  2121.     END;
  2122.  
  2123.     DataHSchedulePtr                    = ^DataHScheduleRecord;
  2124. FUNCTION DataHGetData(dh: DataHandler; h: Handle; hOffset: LONGINT; offset: LONGINT; size: LONGINT): ComponentResult;
  2125.     {$IFC NOT GENERATINGCFM}
  2126.     INLINE $2F3C, $0010, $0002, $7000, $A82A;
  2127.     {$ENDC}
  2128. FUNCTION DataHPutData(dh: DataHandler; h: Handle; hOffset: LONGINT; VAR offset: LONGINT; size: LONGINT): ComponentResult;
  2129.     {$IFC NOT GENERATINGCFM}
  2130.     INLINE $2F3C, $0010, $0003, $7000, $A82A;
  2131.     {$ENDC}
  2132. FUNCTION DataHFlushData(dh: DataHandler): ComponentResult;
  2133.     {$IFC NOT GENERATINGCFM}
  2134.     INLINE $2F3C, $0000, $0004, $7000, $A82A;
  2135.     {$ENDC}
  2136. FUNCTION DataHOpenForWrite(dh: DataHandler): ComponentResult;
  2137.     {$IFC NOT GENERATINGCFM}
  2138.     INLINE $2F3C, $0000, $0005, $7000, $A82A;
  2139.     {$ENDC}
  2140. FUNCTION DataHCloseForWrite(dh: DataHandler): ComponentResult;
  2141.     {$IFC NOT GENERATINGCFM}
  2142.     INLINE $2F3C, $0000, $0006, $7000, $A82A;
  2143.     {$ENDC}
  2144. FUNCTION DataHOpenForRead(dh: DataHandler): ComponentResult;
  2145.     {$IFC NOT GENERATINGCFM}
  2146.     INLINE $2F3C, $0000, $0008, $7000, $A82A;
  2147.     {$ENDC}
  2148. FUNCTION DataHCloseForRead(dh: DataHandler): ComponentResult;
  2149.     {$IFC NOT GENERATINGCFM}
  2150.     INLINE $2F3C, $0000, $0009, $7000, $A82A;
  2151.     {$ENDC}
  2152. FUNCTION DataHSetDataRef(dh: DataHandler; dataRef: Handle): ComponentResult;
  2153.     {$IFC NOT GENERATINGCFM}
  2154.     INLINE $2F3C, $0004, $000A, $7000, $A82A;
  2155.     {$ENDC}
  2156. FUNCTION DataHGetDataRef(dh: DataHandler; VAR dataRef: Handle): ComponentResult;
  2157.     {$IFC NOT GENERATINGCFM}
  2158.     INLINE $2F3C, $0004, $000B, $7000, $A82A;
  2159.     {$ENDC}
  2160. FUNCTION DataHCompareDataRef(dh: DataHandler; dataRef: Handle; VAR equal: BOOLEAN): ComponentResult;
  2161.     {$IFC NOT GENERATINGCFM}
  2162.     INLINE $2F3C, $0008, $000C, $7000, $A82A;
  2163.     {$ENDC}
  2164. FUNCTION DataHTask(dh: DataHandler): ComponentResult;
  2165.     {$IFC NOT GENERATINGCFM}
  2166.     INLINE $2F3C, $0000, $000D, $7000, $A82A;
  2167.     {$ENDC}
  2168. FUNCTION DataHScheduleData(dh: DataHandler; PlaceToPutDataPtr: Ptr; FileOffset: LONGINT; DataSize: LONGINT; RefCon: LONGINT; scheduleRec: DataHSchedulePtr; CompletionRtn: DataHCompletionUPP): ComponentResult;
  2169.     {$IFC NOT GENERATINGCFM}
  2170.     INLINE $2F3C, $0018, $000E, $7000, $A82A;
  2171.     {$ENDC}
  2172. FUNCTION DataHFinishData(dh: DataHandler; PlaceToPutDataPtr: Ptr; Cancel: BOOLEAN): ComponentResult;
  2173.     {$IFC NOT GENERATINGCFM}
  2174.     INLINE $2F3C, $0006, $000F, $7000, $A82A;
  2175.     {$ENDC}
  2176. FUNCTION DataHFlushCache(dh: DataHandler): ComponentResult;
  2177.     {$IFC NOT GENERATINGCFM}
  2178.     INLINE $2F3C, $0000, $0010, $7000, $A82A;
  2179.     {$ENDC}
  2180. FUNCTION DataHResolveDataRef(dh: DataHandler; theDataRef: Handle; VAR wasChanged: BOOLEAN; userInterfaceAllowed: BOOLEAN): ComponentResult;
  2181.     {$IFC NOT GENERATINGCFM}
  2182.     INLINE $2F3C, $000A, $0011, $7000, $A82A;
  2183.     {$ENDC}
  2184. FUNCTION DataHGetFileSize(dh: DataHandler; VAR fileSize: LONGINT): ComponentResult;
  2185.     {$IFC NOT GENERATINGCFM}
  2186.     INLINE $2F3C, $0004, $0012, $7000, $A82A;
  2187.     {$ENDC}
  2188. FUNCTION DataHCanUseDataRef(dh: DataHandler; dataRef: Handle; VAR useFlags: LONGINT): ComponentResult;
  2189.     {$IFC NOT GENERATINGCFM}
  2190.     INLINE $2F3C, $0008, $0013, $7000, $A82A;
  2191.     {$ENDC}
  2192. FUNCTION DataHGetVolumeList(dh: DataHandler; VAR volumeList: DataHVolumeList): ComponentResult;
  2193.     {$IFC NOT GENERATINGCFM}
  2194.     INLINE $2F3C, $0004, $0014, $7000, $A82A;
  2195.     {$ENDC}
  2196. FUNCTION DataHWrite(dh: DataHandler; data: Ptr; offset: LONGINT; size: LONGINT; completion: DataHCompletionUPP; refCon: LONGINT): ComponentResult;
  2197.     {$IFC NOT GENERATINGCFM}
  2198.     INLINE $2F3C, $0014, $0015, $7000, $A82A;
  2199.     {$ENDC}
  2200. FUNCTION DataHPreextend(dh: DataHandler; maxToAdd: LONGINT; VAR spaceAdded: LONGINT): ComponentResult;
  2201.     {$IFC NOT GENERATINGCFM}
  2202.     INLINE $2F3C, $0008, $0016, $7000, $A82A;
  2203.     {$ENDC}
  2204. FUNCTION DataHSetFileSize(dh: DataHandler; fileSize: LONGINT): ComponentResult;
  2205.     {$IFC NOT GENERATINGCFM}
  2206.     INLINE $2F3C, $0004, $0017, $7000, $A82A;
  2207.     {$ENDC}
  2208. FUNCTION DataHGetFreeSpace(dh: DataHandler; VAR freeSize: LONGINT): ComponentResult;
  2209.     {$IFC NOT GENERATINGCFM}
  2210.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  2211.     {$ENDC}
  2212. FUNCTION DataHCreateFile(dh: DataHandler; creator: OSType; deleteExisting: BOOLEAN): ComponentResult;
  2213.     {$IFC NOT GENERATINGCFM}
  2214.     INLINE $2F3C, $0006, $0019, $7000, $A82A;
  2215.     {$ENDC}
  2216. FUNCTION DataHGetPreferredBlockSize(dh: DataHandler; VAR blockSize: LONGINT): ComponentResult;
  2217.     {$IFC NOT GENERATINGCFM}
  2218.     INLINE $2F3C, $0004, $001A, $7000, $A82A;
  2219.     {$ENDC}
  2220. FUNCTION DataHGetDeviceIndex(dh: DataHandler; VAR deviceIndex: LONGINT): ComponentResult;
  2221.     {$IFC NOT GENERATINGCFM}
  2222.     INLINE $2F3C, $0004, $001B, $7000, $A82A;
  2223.     {$ENDC}
  2224. FUNCTION DataHIsStreamingDataHandler(dh: DataHandler; VAR yes: BOOLEAN): ComponentResult;
  2225.     {$IFC NOT GENERATINGCFM}
  2226.     INLINE $2F3C, $0004, $001C, $7000, $A82A;
  2227.     {$ENDC}
  2228. FUNCTION DataHGetDataInBuffer(dh: DataHandler; startOffset: LONGINT; VAR size: LONGINT): ComponentResult;
  2229.     {$IFC NOT GENERATINGCFM}
  2230.     INLINE $2F3C, $0008, $001D, $7000, $A82A;
  2231.     {$ENDC}
  2232. FUNCTION DataHGetScheduleAheadTime(dh: DataHandler; VAR millisecs: LONGINT): ComponentResult;
  2233.     {$IFC NOT GENERATINGCFM}
  2234.     INLINE $2F3C, $0004, $001E, $7000, $A82A;
  2235.     {$ENDC}
  2236. FUNCTION DataHSetCacheSizeLimit(dh: DataHandler; cacheSizeLimit: Size): ComponentResult;
  2237.     {$IFC NOT GENERATINGCFM}
  2238.     INLINE $2F3C, $0004, $001F, $7000, $A82A;
  2239.     {$ENDC}
  2240. FUNCTION DataHGetCacheSizeLimit(dh: DataHandler; VAR cacheSizeLimit: Size): ComponentResult;
  2241.     {$IFC NOT GENERATINGCFM}
  2242.     INLINE $2F3C, $0004, $0020, $7000, $A82A;
  2243.     {$ENDC}
  2244. FUNCTION DataHGetMovie(dh: DataHandler; VAR theMovie: Movie; VAR id: INTEGER): ComponentResult;
  2245.     {$IFC NOT GENERATINGCFM}
  2246.     INLINE $2F3C, $0008, $0021, $7000, $A82A;
  2247.     {$ENDC}
  2248. FUNCTION DataHAddMovie(dh: DataHandler; theMovie: Movie; VAR id: INTEGER): ComponentResult;
  2249.     {$IFC NOT GENERATINGCFM}
  2250.     INLINE $2F3C, $0008, $0022, $7000, $A82A;
  2251.     {$ENDC}
  2252. FUNCTION DataHUpdateMovie(dh: DataHandler; theMovie: Movie; id: INTEGER): ComponentResult;
  2253.     {$IFC NOT GENERATINGCFM}
  2254.     INLINE $2F3C, $0006, $0023, $7000, $A82A;
  2255.     {$ENDC}
  2256. FUNCTION DataHDoesBuffer(dh: DataHandler; VAR buffersReads: BOOLEAN; VAR buffersWrites: BOOLEAN): ComponentResult;
  2257.     {$IFC NOT GENERATINGCFM}
  2258.     INLINE $2F3C, $0008, $0024, $7000, $A82A;
  2259.     {$ENDC}
  2260. FUNCTION DataHPlaybackHints(dh: DataHandler; flags: LONGINT; minFileOffset: LONGINT; maxFileOffset: LONGINT; bytesPerSecond: LONGINT): ComponentResult;
  2261.     {$IFC NOT GENERATINGCFM}
  2262.     INLINE $2F3C, $0010, $0103, $7000, $A82A;
  2263.     {$ENDC}
  2264.  
  2265. CONST
  2266.     kDataHGetDataSelect            = $02;
  2267.     kDataHPutDataSelect            = $03;
  2268.     kDataHFlushDataSelect        = $04;
  2269.     kDataHOpenForWriteSelect    = $05;
  2270.     kDataHCloseForWriteSelect    = $06;
  2271.     kDataHOpenForReadSelect        = $08;
  2272.     kDataHCloseForReadSelect    = $09;
  2273.     kDataHSetDataRefSelect        = $0A;
  2274.     kDataHGetDataRefSelect        = $0B;
  2275.     kDataHCompareDataRefSelect    = $0C;
  2276.     kDataHTaskSelect            = $0D;
  2277.     kDataHScheduleDataSelect    = $0E;
  2278.     kDataHFinishDataSelect        = $0F;
  2279.     kDataHFlushCacheSelect        = $10;
  2280.     kDataHResolveDataRefSelect    = $11;
  2281.     kDataHGetFileSizeSelect        = $12;
  2282.     kDataHCanUseDataRefSelect    = $13;
  2283.     kDataHGetVolumeListSelect    = $14;
  2284.     kDataHWriteSelect            = $15;
  2285.     kDataHPreextendSelect        = $16;
  2286.     kDataHSetFileSizeSelect        = $17;
  2287.     kDataHGetFreeSpaceSelect    = $18;
  2288.     kDataHCreateFileSelect        = $19;
  2289.     kDataHGetPreferredBlockSizeSelect = $1A;
  2290.     kDataHGetDeviceIndexSelect    = $1B;
  2291.     kDataHIsStreamingDataHandlerSelect = $1C;
  2292.     kDataHGetDataInBufferSelect    = $1D;
  2293.     kDataHGetScheduleAheadTimeSelect = $1E;
  2294.     kDataHSetCacheSizeLimitSelect = $1F;
  2295.     kDataHGetCacheSizeLimitSelect = $20;
  2296.     kDataHGetMovieSelect        = $21;
  2297.     kDataHAddMovieSelect        = $22;
  2298.     kDataHUpdateMovieSelect        = $23;
  2299.     kDataHDoesBufferSelect        = $24;
  2300.     kDataHPlaybackHintsSelect    = $0103;
  2301.  
  2302.     kMusicComponentType            = 'musi';
  2303.  
  2304.  
  2305. TYPE
  2306.     MusicComponent                        = ComponentInstance;
  2307. {  MusicSynthesizerFlags }
  2308.  
  2309. CONST
  2310.     kSynthesizerDynamicVoice    = 1;                            {  can reassign voices/channels (else, hogs all channels in mask  }
  2311.     kSynthesizerUsesMIDIPort    = 2;                            {  must be patched through MIDI Manager  }
  2312.     kSynthesizerMicrotone        = 4;                            {  can play microtonal scales  }
  2313.     kSynthesizerLimitedMicrotone = 8;                            {  can play microtones, but only on 1-voice parts  }
  2314.     kSynthesizerMixedDrums        = 16;                            {  any part can play drum parts, total = instrument parts  }
  2315.     kSynthesizerSoftware        = 32;                            {  implemented in main CPU software == uses cpu cycles  }
  2316.     kSynthesizerGMSuperset        = 8192;
  2317.     kSynthesizerGM                = 16384;                        {  synth is a GM device  }
  2318.  
  2319. {
  2320.  * Note that these controller numbers
  2321.  * are _not_ identical to the MIDI controller numbers.
  2322.  * These are _signed_ 8.8 values, and the LSB's are
  2323.  * always sent to a MIDI device. Controllers 32-63 are
  2324.  * reserved (for MIDI, they are LSB's for 0-31, but we
  2325.  * always send both).
  2326.  *
  2327.  * The full range, therefore, is -128.00 to 127.7f.
  2328.  *
  2329.  * _Excepting_ _volume_, all controls default to zero.
  2330.  *
  2331.  * Pitch bend is specified in fractional semitones! No
  2332.  * more "pitch bend range" nonsense. You can bend as far
  2333.  * as you want, any time you want.
  2334. }
  2335.     kControllerModulationWheel    = 1;
  2336.     kControllerBreath            = 2;
  2337.     kControllerFoot                = 4;
  2338.     kControllerPortamentoTime    = 5;
  2339.     kControllerVolume            = 7;
  2340.     kControllerBalance            = 8;
  2341.     kControllerPan                = 10;                            {  0 - "default", 1 - n: positioned in output 1-n (incl fractions)  }
  2342.     kControllerExpression        = 11;
  2343.     kControllerPitchBend        = 32;                            {  positive & negative semitones, with 7 bits fraction  }
  2344.     kControllerAfterTouch        = 33;
  2345.     kControllerSustain            = 64;                            {  boolean - positive for on, 0 or negative off  }
  2346.     kControllerPortamento        = 65;                            {  boolean  }
  2347.     kControllerSostenuto        = 66;                            {  boolean  }
  2348.     kControllerSoftPedal        = 67;                            {  boolean  }
  2349.     kControllerReverb            = 91;
  2350.     kControllerTremolo            = 92;
  2351.     kControllerChorus            = 93;
  2352.     kControllerCeleste            = 94;
  2353.     kControllerPhaser            = 95;
  2354.  
  2355.     kControllerMaximum            = $7FFF;                        {  +01111111.11111111  }
  2356.     kControllerMinimum            = $8000;                        {  -10000000.00000000  }
  2357.  
  2358.  
  2359. TYPE
  2360.     SynthesizerDescriptionPtr = ^SynthesizerDescription;
  2361.     SynthesizerDescription = RECORD
  2362.         synthesizerType:        OSType;                                    {  synthesizer type (must be same as component subtype)  }
  2363.         name:                    Str31;                                    {  text name of synthesizer type  }
  2364.         flags:                    LONGINT;                                {  from the above enum  }
  2365.         voiceCount:                LONGINT;                                {  maximum polyphony  }
  2366.         partCount:                LONGINT;                                {  maximum multi-timbrality (and midi channels)  }
  2367.         instrumentCount:        LONGINT;                                {  non gm, built in (rom) instruments only  }
  2368.         modifiableInstrumentCount: LONGINT;                                {  plus n-more are user modifiable  }
  2369.         channelMask:            LONGINT;                                {  (midi device only) which channels device always uses  }
  2370.         drumPartCount:            LONGINT;                                {  maximum multi-timbrality of drum parts  }
  2371.         drumCount:                LONGINT;                                {  non gm, built in (rom) drumkits only  }
  2372.         modifiableDrumCount:    LONGINT;                                {  plus n-more are user modifiable  }
  2373.         drumChannelMask:        LONGINT;                                {  (midi device only) which channels device always uses  }
  2374.         outputCount:            LONGINT;                                {  number of audio outputs (usually two)  }
  2375.         latency:                LONGINT;                                {  response time in µSec  }
  2376.         controllers:            ARRAY [0..3] OF LONGINT;                {  array of 128 bits  }
  2377.         gmInstruments:            ARRAY [0..3] OF LONGINT;                {  array of 128 bits  }
  2378.         gmDrums:                ARRAY [0..3] OF LONGINT;                {  array of 128 bits  }
  2379.     END;
  2380.  
  2381.  
  2382. CONST
  2383.     kVoiceCountDynamic            = -1;                            {  constant to use to specify dynamic voicing  }
  2384.  
  2385.  
  2386. TYPE
  2387.     ToneDescriptionPtr = ^ToneDescription;
  2388.     ToneDescription = RECORD
  2389.         synthesizerType:        OSType;                                    {  synthesizer type  }
  2390.         synthesizerName:        Str31;                                    {  name of instantiation of synth  }
  2391.         instrumentName:            Str31;                                    {  preferred name for human use  }
  2392.         instrumentNumber:        LONGINT;                                {  inst-number used if synth-name matches  }
  2393.         gmNumber:                LONGINT;                                {  Best matching general MIDI number  }
  2394.     END;
  2395.  
  2396.  
  2397. CONST
  2398.     kFirstDrumkit                = 16384;                        {  (first value is "no drum". instrument numbers from 16384->16384+128 are drumkits, and for GM they are _defined_ drumkits!  }
  2399.     kLastDrumkit                = 16512;
  2400.  
  2401. {  InstrumentMatch }
  2402.     kInstrumentMatchSynthesizerType = 1;
  2403.     kInstrumentMatchSynthesizerName = 2;
  2404.     kInstrumentMatchName        = 4;
  2405.     kInstrumentMatchNumber        = 8;
  2406.     kInstrumentMatchGMNumber    = 16;
  2407.  
  2408. {  KnobFlags }
  2409.     kKnobRealtime                = 1;                            {  Knob can be changed interactively as part of a sequence (ie knob can be changed at interrupt time)  }
  2410.     kKnobNextNote                = 2;                            {  Knob only takes effect on the next note played  }
  2411.     kKnobAction                    = 4;                            {  setting the knob does something immediate  }
  2412.     kKnobNotInstrument            = 8;                            {  indicates that the knob isn't in the instrument handle  }
  2413.     kKnobAffectsOthers            = 16;                            {  other knobs will change value from this one  }
  2414.     kKnobMinorGroupStart        = 64;                            {  knob is first in some logical subgroup of knobs  }
  2415.     kKnobGroupStart                = 128;                            {  knob is first in some logical group of knobs  }
  2416.                                                                 {  One of these may be used at a time.  }
  2417.     kKnobTypeNumber                = $00;
  2418.     kKnobTypeBoolean            = $1000;
  2419.     kKnobTypeNote                = $2000;
  2420.     kKnobTypePan                = $3000;
  2421.     kKnobTypeInstrument            = $4000;                        {  knob value = reference to another instrument number  }
  2422.     kKnobTypeSetting            = $5000;                        {  knob value is 1 of n different things (eg, fm algorithms)  }
  2423.  
  2424.     kUnknownKnobValue            = $7FFFFFFF;                    {  a knob with this value means, we don't know it.  }
  2425.  
  2426.  
  2427. TYPE
  2428.     KnobDescriptionPtr = ^KnobDescription;
  2429.     KnobDescription = RECORD
  2430.         name:                    Str31;
  2431.         lowValue:                LONGINT;
  2432.         highValue:                LONGINT;
  2433.         defaultValue:            LONGINT;                                {  a default instrument is made of all default values  }
  2434.         flags:                    LONGINT;
  2435.     END;
  2436.  
  2437.     InstrumentDataPtr = ^InstrumentData;
  2438.     InstrumentData = RECORD
  2439.         tone:                    ToneDescription;
  2440.         knobCount:                LONGINT;
  2441.         knob:                    ARRAY [0..0] OF LONGINT;
  2442.     END;
  2443.  
  2444.     InstrumentDataHandle                = ^InstrumentDataPtr;
  2445.     FlatInstrumentPtr = ^FlatInstrument;
  2446.     FlatInstrument = RECORD
  2447.         tone:                    ToneDescription;
  2448.         size:                    LONGINT;                                {  size in bytes of the following data, including size field (excluding tonedescription)  }
  2449.         data:                    PACKED ARRAY [0..3] OF UInt8;
  2450.     END;
  2451.  
  2452.     InstrumentAboutInfoPtr = ^InstrumentAboutInfo;
  2453.     InstrumentAboutInfo = RECORD
  2454.         p:                        PicHandle;
  2455.         author:                    Str255;
  2456.         copyright:                Str255;
  2457.         other:                    Str255;
  2458.     END;
  2459.  
  2460.     MusicMIDIPacketPtr = ^MusicMIDIPacket;
  2461.     MusicMIDIPacket = RECORD
  2462.         length:                    INTEGER;
  2463.         reserved:                LONGINT;
  2464.         data:                    PACKED ARRAY [0..248] OF UInt8;
  2465.     END;
  2466.  
  2467.     MusicMIDISendProcPtr = ProcPtr;  { FUNCTION MusicMIDISend(self: MusicComponent; refCon: LONGINT; VAR mmp: MusicMIDIPacket): ComponentResult; }
  2468.  
  2469.     MusicMIDISendUPP = UniversalProcPtr;
  2470. { -------------------------------- }
  2471.  
  2472. CONST
  2473.     kMusicFirstSelect            = 0;
  2474.     kMusicGetDescriptionSelect    = 1;
  2475.     kMusicGetPartSelect            = 2;
  2476.     kMusicSetPartSelect            = 3;
  2477.     kMusicSetInstrumentNumberSelect = 4;
  2478.     kMusicGetInstrumentNumberSelect = 5;
  2479.     kMusicStoreInstrumentSelect    = 6;
  2480.     kMusicGetInstrumentSelect    = 7;
  2481.     kMusicSetInstrumentSelect    = 8;
  2482.     kMusicDummyOne                = 9;
  2483.     kMusicDummyTwo                = 10;
  2484.     kMusicDummyThree            = 11;
  2485.     kMusicDummyFour                = 12;
  2486.     kMusicGetInstrumentKnobDescriptionSelect = 13;
  2487.     kMusicGetDrumKnobDescriptionSelect = 14;
  2488.     kMusicGetKnobDescriptionSelect = 15;
  2489.     kMusicGetPartKnobSelect        = 16;
  2490.     kMusicSetPartKnobSelect        = 17;
  2491.     kMusicGetKnobSelect            = 18;
  2492.     kMusicSetKnobSelect            = 19;
  2493.     kMusicGetPartNameSelect        = 20;
  2494.     kMusicSetPartNameSelect        = 21;
  2495.     kMusicFindToneSelect        = 22;
  2496.     kMusicPlayNoteSelect        = 23;
  2497.     kMusicResetPartSelect        = 24;
  2498.     kMusicSetControllerSelect    = 25;
  2499.     kMusicGetControllerSelect    = 26;
  2500.     kMusicGetMIDIProcSelect        = 27;
  2501.     kMusicSetMIDIProcSelect        = 28;
  2502.     kMusicGetInstrumentNamesSelect = 29;
  2503.     kMusicGetDrumNamesSelect    = 30;
  2504.     kMusicGetMasterTuneSelect    = 31;
  2505.     kMusicSetMasterTuneSelect    = 32;
  2506.     kMusicSetFlatInstrumentSelect = 33;
  2507.     kMusicGetInstrumentAboutInfoSelect = 34;
  2508.  
  2509.     notImplementedMusicErr        = $8000F7CB;
  2510.     cantSendToSynthesizerErr    = $8000F7CA;
  2511.     cantReceiveFromSynthesizerErr = $8000F7C9;
  2512.     illegalVoiceAllocationErr    = $8000F7C8;
  2513.     illegalPartErr                = $8000F7C7;
  2514.     illegalChannelErr            = $8000F7C6;
  2515.     illegalKnobErr                = $8000F7C5;
  2516.     illegalKnobValueErr            = $8000F7C4;
  2517.     illegalInstrumentErr        = $8000F7C3;
  2518.     illegalControllerErr        = $8000F7C2;
  2519.     midiManagerAbsentErr        = $8000F7C1;
  2520.     synthesizerNotRespondingErr    = $8000F7C0;
  2521.     synthesizerErr                = $8000F7BF;
  2522.     illegalNoteChannelErr        = $8000F7BE;
  2523.     noteChannelNotAllocatedErr    = $8000F7BD;
  2524.     tunePlayerFullErr            = $8000F7BC;
  2525.     tuneParseErr                = $8000F7BB;
  2526.  
  2527.     kGMType                        = 'gm  ';                        {  subtype for General MIDI music component  }
  2528.  
  2529. {
  2530. -----------------------------------------
  2531.     Capabilities and Voice Allocation
  2532. -----------------------------------------
  2533. }
  2534. FUNCTION MusicGetPart(mc: MusicComponent; part: LONGINT; VAR midiChannel: LONGINT; VAR polyphony: LONGINT): ComponentResult;
  2535.     {$IFC NOT GENERATINGCFM}
  2536.     INLINE $2F3C, $000C, $0002, $7000, $A82A;
  2537.     {$ENDC}
  2538. FUNCTION MusicSetPart(mc: MusicComponent; part: LONGINT; midiChannel: LONGINT; polyphony: LONGINT): ComponentResult;
  2539.     {$IFC NOT GENERATINGCFM}
  2540.     INLINE $2F3C, $000C, $0003, $7000, $A82A;
  2541.     {$ENDC}
  2542. FUNCTION MusicGetDescription(mc: MusicComponent; VAR sd: SynthesizerDescription): ComponentResult;
  2543.     {$IFC NOT GENERATINGCFM}
  2544.     INLINE $2F3C, $0004, $0001, $7000, $A82A;
  2545.     {$ENDC}
  2546. FUNCTION MusicGetInstrumentAboutInfo(mc: MusicComponent; part: LONGINT; VAR iai: InstrumentAboutInfo): ComponentResult;
  2547.     {$IFC NOT GENERATINGCFM}
  2548.     INLINE $2F3C, $0008, $0022, $7000, $A82A;
  2549.     {$ENDC}
  2550. {
  2551. -----------------------------------------
  2552.     Instrument Loading and Storing
  2553. -----------------------------------------
  2554. }
  2555. FUNCTION MusicSetInstrumentNumber(mc: MusicComponent; part: LONGINT; instrumentNumber: LONGINT): ComponentResult;
  2556.     {$IFC NOT GENERATINGCFM}
  2557.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  2558.     {$ENDC}
  2559. FUNCTION MusicGetInstrumentNumber(mc: MusicComponent; part: LONGINT): ComponentResult;
  2560.     {$IFC NOT GENERATINGCFM}
  2561.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  2562.     {$ENDC}
  2563. FUNCTION MusicStoreInstrument(mc: MusicComponent; part: LONGINT; instrumentNumber: LONGINT): ComponentResult;
  2564.     {$IFC NOT GENERATINGCFM}
  2565.     INLINE $2F3C, $0008, $0006, $7000, $A82A;
  2566.     {$ENDC}
  2567. FUNCTION MusicGetInstrument(mc: MusicComponent; part: LONGINT; VAR iH: InstrumentDataHandle): ComponentResult;
  2568.     {$IFC NOT GENERATINGCFM}
  2569.     INLINE $2F3C, $0008, $0007, $7000, $A82A;
  2570.     {$ENDC}
  2571. FUNCTION MusicSetInstrument(mc: MusicComponent; part: LONGINT; iH: InstrumentDataHandle): ComponentResult;
  2572.     {$IFC NOT GENERATINGCFM}
  2573.     INLINE $2F3C, $0008, $0008, $7000, $A82A;
  2574.     {$ENDC}
  2575. FUNCTION MusicSetFlatInstrument(mc: MusicComponent; part: LONGINT; VAR flatInstrument: FlatInstrument): ComponentResult;
  2576.     {$IFC NOT GENERATINGCFM}
  2577.     INLINE $2F3C, $0008, $0021, $7000, $A82A;
  2578.     {$ENDC}
  2579. {
  2580. -----------------------------------------
  2581.     Instrument Knobs
  2582. -----------------------------------------
  2583. }
  2584. FUNCTION MusicGetInstrumentKnobDescription(mc: MusicComponent; knobNumber: LONGINT; VAR mkd: KnobDescription): ComponentResult;
  2585.     {$IFC NOT GENERATINGCFM}
  2586.     INLINE $2F3C, $0008, $000D, $7000, $A82A;
  2587.     {$ENDC}
  2588. FUNCTION MusicGetDrumKnobDescription(mc: MusicComponent; knobNumber: LONGINT; VAR mkd: KnobDescription): ComponentResult;
  2589.     {$IFC NOT GENERATINGCFM}
  2590.     INLINE $2F3C, $0008, $000E, $7000, $A82A;
  2591.     {$ENDC}
  2592. FUNCTION MusicGetPartKnob(mc: MusicComponent; part: LONGINT; knobNumber: LONGINT): ComponentResult;
  2593.     {$IFC NOT GENERATINGCFM}
  2594.     INLINE $2F3C, $0008, $0010, $7000, $A82A;
  2595.     {$ENDC}
  2596. FUNCTION MusicSetPartKnob(mc: MusicComponent; part: LONGINT; knobNumber: LONGINT; knobValue: LONGINT): ComponentResult;
  2597.     {$IFC NOT GENERATINGCFM}
  2598.     INLINE $2F3C, $000C, $0011, $7000, $A82A;
  2599.     {$ENDC}
  2600. {
  2601. -----------------------------------------
  2602.     Synthesizer Knobs
  2603. -----------------------------------------
  2604. }
  2605. FUNCTION MusicGetKnobDescription(mc: MusicComponent; knobNumber: LONGINT; VAR mkd: KnobDescription): ComponentResult;
  2606.     {$IFC NOT GENERATINGCFM}
  2607.     INLINE $2F3C, $0008, $000F, $7000, $A82A;
  2608.     {$ENDC}
  2609. FUNCTION MusicGetKnob(mc: MusicComponent; knobNumber: LONGINT): ComponentResult;
  2610.     {$IFC NOT GENERATINGCFM}
  2611.     INLINE $2F3C, $0004, $0012, $7000, $A82A;
  2612.     {$ENDC}
  2613. FUNCTION MusicSetKnob(mc: MusicComponent; knobNumber: LONGINT; knobValue: LONGINT): ComponentResult;
  2614.     {$IFC NOT GENERATINGCFM}
  2615.     INLINE $2F3C, $0008, $0013, $7000, $A82A;
  2616.     {$ENDC}
  2617. FUNCTION MusicSetMasterTune(mc: MusicComponent; masterTune: Fixed): ComponentResult;
  2618.     {$IFC NOT GENERATINGCFM}
  2619.     INLINE $2F3C, $0004, $0020, $7000, $A82A;
  2620.     {$ENDC}
  2621. FUNCTION MusicGetMasterTune(mc: MusicComponent): ComponentResult;
  2622.     {$IFC NOT GENERATINGCFM}
  2623.     INLINE $2F3C, $0000, $001F, $7000, $A82A;
  2624.     {$ENDC}
  2625. {
  2626. -----------------------------------------
  2627.     Names of Instruments
  2628. -----------------------------------------
  2629. }
  2630. FUNCTION MusicGetPartName(mc: MusicComponent; part: LONGINT; VAR name: Str31): ComponentResult;
  2631.     {$IFC NOT GENERATINGCFM}
  2632.     INLINE $2F3C, $0008, $0014, $7000, $A82A;
  2633.     {$ENDC}
  2634. FUNCTION MusicSetPartName(mc: MusicComponent; part: LONGINT; VAR name: Str31): ComponentResult;
  2635.     {$IFC NOT GENERATINGCFM}
  2636.     INLINE $2F3C, $0008, $0015, $7000, $A82A;
  2637.     {$ENDC}
  2638. FUNCTION MusicFindTone(mc: MusicComponent; VAR td: ToneDescription; VAR instrumentNumber: LONGINT; VAR fit: LONGINT): ComponentResult;
  2639.     {$IFC NOT GENERATINGCFM}
  2640.     INLINE $2F3C, $000C, $0016, $7000, $A82A;
  2641.     {$ENDC}
  2642. FUNCTION MusicGetInstrumentNames(mc: MusicComponent; modifiableInstruments: LONGINT; VAR instrumentNames: Handle; VAR instrumentCategoryLasts: Handle; VAR instrumentCategoryNames: Handle): ComponentResult;
  2643.     {$IFC NOT GENERATINGCFM}
  2644.     INLINE $2F3C, $0010, $001D, $7000, $A82A;
  2645.     {$ENDC}
  2646. FUNCTION MusicGetDrumNames(mc: MusicComponent; modifiableInstruments: LONGINT; VAR instrumentNumbers: Handle; VAR instrumentNames: Handle): ComponentResult;
  2647.     {$IFC NOT GENERATINGCFM}
  2648.     INLINE $2F3C, $000C, $001E, $7000, $A82A;
  2649.     {$ENDC}
  2650. {
  2651. -----------------------------------------
  2652.     Realtime Actions
  2653. -----------------------------------------
  2654. }
  2655. FUNCTION MusicPlayNote(mc: MusicComponent; part: LONGINT; pitch: LONGINT; velocity: LONGINT): ComponentResult;
  2656.     {$IFC NOT GENERATINGCFM}
  2657.     INLINE $2F3C, $000C, $0017, $7000, $A82A;
  2658.     {$ENDC}
  2659. FUNCTION MusicResetPart(mc: MusicComponent; part: LONGINT): ComponentResult;
  2660.     {$IFC NOT GENERATINGCFM}
  2661.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  2662.     {$ENDC}
  2663. FUNCTION MusicSetController(mc: MusicComponent; part: LONGINT; controllerNumber: LONGINT; controllerValue: LONGINT): ComponentResult;
  2664.     {$IFC NOT GENERATINGCFM}
  2665.     INLINE $2F3C, $000C, $0019, $7000, $A82A;
  2666.     {$ENDC}
  2667. FUNCTION MusicGetController(mc: MusicComponent; part: LONGINT; controllerNumber: LONGINT): ComponentResult;
  2668.     {$IFC NOT GENERATINGCFM}
  2669.     INLINE $2F3C, $0008, $001A, $7000, $A82A;
  2670.     {$ENDC}
  2671. {
  2672. -----------------------------------------
  2673.     Finding the Hardware
  2674. -----------------------------------------
  2675. }
  2676. FUNCTION MusicGetMIDIProc(mc: MusicComponent; VAR midiSendProc: MusicMIDISendUPP; VAR refCon: LONGINT): ComponentResult;
  2677.     {$IFC NOT GENERATINGCFM}
  2678.     INLINE $2F3C, $0008, $001B, $7000, $A82A;
  2679.     {$ENDC}
  2680. FUNCTION MusicSetMIDIProc(mc: MusicComponent; midiSendProc: MusicMIDISendUPP; refCon: LONGINT): ComponentResult;
  2681.     {$IFC NOT GENERATINGCFM}
  2682.     INLINE $2F3C, $0008, $001C, $7000, $A82A;
  2683.     {$ENDC}
  2684. {
  2685. --------------------------
  2686.     Types
  2687. --------------------------
  2688. }
  2689.  
  2690. TYPE
  2691.     NoteChannel                            = Ptr;
  2692. {  used for MIDI device only  }
  2693.     SynthesizerConnectionsPtr = ^SynthesizerConnections;
  2694.     SynthesizerConnections = RECORD
  2695.         clientID:                OSType;
  2696.         inputPortID:            OSType;
  2697.         outputPortID:            OSType;
  2698.         midiChannel:            LONGINT;                                {  The system channel; others are configurable (or the nubus slot number)  }
  2699.         flags:                    LONGINT;
  2700.         reserved:                ARRAY [0..2] OF LONGINT;                {  should be zero  }
  2701.     END;
  2702.  
  2703.     NoteRequestPtr = ^NoteRequest;
  2704.     NoteRequest = RECORD
  2705.         polyphony:                LONGINT;                                {  Maximum number of voices  }
  2706.         typicalPolyphony:        Fixed;                                    {  Hint for level mixing  }
  2707.         tone:                    ToneDescription;
  2708.     END;
  2709.  
  2710.  
  2711. CONST
  2712.     kNAFirstSelector            = -7;
  2713.     kNATargetSelect                = -6;
  2714.     kNARegisterSelect            = -5;
  2715.     kNAVersionSelect            = -4;
  2716.     kNACanDoSelect                = -3;
  2717.     kNACloseSelect                = -2;
  2718.     kNAOpenSelect                = -1;
  2719.     kNARegisterMusicDeviceSelect = 0;
  2720.     kNAUnregisterMusicDeviceSelect = 1;
  2721.     kNAGetRegisteredMusicDeviceSelect = 2;
  2722.     kNASaveMusicConfigurationSelect = 3;
  2723.     kNANewNoteChannelSelect        = 4;
  2724.     kNADisposeNoteChannelSelect    = 5;
  2725.     kNAGetNoteChannelInfoSelect    = 6;
  2726.     kNAPrerollNoteChannelSelect    = 7;
  2727.     kNAUnrollNoteChannelSelect    = 8;
  2728.     kNAEngageNoteChannelSelect    = 9;
  2729.     kNADisengageNoteChannelSelect = 10;
  2730.     kNASetNoteChannelVolumeSelect = 11;
  2731.     kNAResetNoteChannelSelect    = 12;
  2732.     kNAPlayNoteSelect            = 13;
  2733.     kNASetControllerSelect        = 14;
  2734.     kNASetKnobSelect            = 15;
  2735.     kNAFindNoteChannelToneSelect = 16;
  2736.     kNASetNoteChannelInstrumentSelect = 17;
  2737.     kNAPickInstrumentSelect        = 18;
  2738.     kNAPickArrangementSelect    = 19;
  2739.     kNAGetStatusBlockSelect        = 20;
  2740.     kNASetDefaultMIDIInputSelect = 21;
  2741.     kNAGetDefaultMIDIInputSelect = 22;
  2742.     kNAGetNoteChannelStateSelect = 23;
  2743.     kNASetNoteChannelStateSelect = 24;
  2744.     kNAUseDefaultMIDIInputSelect = 25;
  2745.     kNALoseDefaultMIDIInputSelect = 26;
  2746.     kNAStuffToneDescriptionSelect = 27;
  2747.     kNACopyrightDialogSelect    = 28;
  2748.     kNASetFlatInstrumentSelect    = 29;
  2749.     kNASetInstrumentSelect        = 30;
  2750.     kNALastSelector                = 31;
  2751.  
  2752.  
  2753. TYPE
  2754.     NoteAllocator                        = ComponentInstance;
  2755.  
  2756. CONST
  2757.     kPickDontMix                = 1;                            {  dont mix instruments with drum sounds  }
  2758.     kPickSameSynth                = 2;                            {  only allow the same device that went in, to come out  }
  2759.  
  2760.  
  2761. TYPE
  2762.     MusicMIDIReadHookProcPtr = ProcPtr;  { FUNCTION MusicMIDIReadHook(VAR mp: MusicMIDIPacket; myRefCon: LONGINT): ComponentResult; }
  2763.  
  2764.     MusicMIDIReadHookUPP = UniversalProcPtr;
  2765.  
  2766. CONST
  2767.     kNoteAllocatorType            = 'nota';
  2768.  
  2769. {
  2770. --------------------------------
  2771.     Note Allocator Prototypes
  2772. --------------------------------
  2773. }
  2774. {
  2775.  * System Configuration
  2776. }
  2777. FUNCTION NARegisterMusicDevice(na: NoteAllocator; synthType: OSType; VAR name: Str31; VAR connections: SynthesizerConnections): ComponentResult;
  2778.     {$IFC NOT GENERATINGCFM}
  2779.     INLINE $2F3C, $000C, $0000, $7000, $A82A;
  2780.     {$ENDC}
  2781. FUNCTION NAUnregisterMusicDevice(na: NoteAllocator; index: LONGINT): ComponentResult;
  2782.     {$IFC NOT GENERATINGCFM}
  2783.     INLINE $2F3C, $0004, $0001, $7000, $A82A;
  2784.     {$ENDC}
  2785. FUNCTION NAGetRegisteredMusicDevice(na: NoteAllocator; index: LONGINT; VAR synthType: OSType; VAR name: Str31; VAR connections: SynthesizerConnections; VAR mc: MusicComponent): ComponentResult;
  2786.     {$IFC NOT GENERATINGCFM}
  2787.     INLINE $2F3C, $0014, $0002, $7000, $A82A;
  2788.     {$ENDC}
  2789. FUNCTION NASetDefaultMIDIInput(na: NoteAllocator; VAR sc: SynthesizerConnections): ComponentResult;
  2790.     {$IFC NOT GENERATINGCFM}
  2791.     INLINE $2F3C, $0004, $0015, $7000, $A82A;
  2792.     {$ENDC}
  2793. FUNCTION NAGetDefaultMIDIInput(na: NoteAllocator; VAR sc: SynthesizerConnections): ComponentResult;
  2794.     {$IFC NOT GENERATINGCFM}
  2795.     INLINE $2F3C, $0004, $0016, $7000, $A82A;
  2796.     {$ENDC}
  2797. FUNCTION NASaveMusicConfiguration(na: NoteAllocator): ComponentResult;
  2798.     {$IFC NOT GENERATINGCFM}
  2799.     INLINE $2F3C, $0000, $0003, $7000, $A82A;
  2800.     {$ENDC}
  2801. {
  2802.  * Allocation
  2803. }
  2804. FUNCTION NANewNoteChannel(na: NoteAllocator; VAR noteRequest: NoteRequest; VAR outChannel: NoteChannel): ComponentResult;
  2805.     {$IFC NOT GENERATINGCFM}
  2806.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  2807.     {$ENDC}
  2808. FUNCTION NADisposeNoteChannel(na: NoteAllocator; noteChannel: NoteChannel): ComponentResult;
  2809.     {$IFC NOT GENERATINGCFM}
  2810.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  2811.     {$ENDC}
  2812. FUNCTION NAGetNoteChannelInfo(na: NoteAllocator; noteChannel: NoteChannel; VAR index: LONGINT; VAR part: LONGINT): ComponentResult;
  2813.     {$IFC NOT GENERATINGCFM}
  2814.     INLINE $2F3C, $000C, $0006, $7000, $A82A;
  2815.     {$ENDC}
  2816. FUNCTION NAUseDefaultMIDIInput(na: NoteAllocator; readHook: MusicMIDIReadHookUPP; refCon: LONGINT; flags: LONGINT): ComponentResult;
  2817.     {$IFC NOT GENERATINGCFM}
  2818.     INLINE $2F3C, $000C, $0019, $7000, $A82A;
  2819.     {$ENDC}
  2820. FUNCTION NALoseDefaultMIDIInput(na: NoteAllocator): ComponentResult;
  2821.     {$IFC NOT GENERATINGCFM}
  2822.     INLINE $2F3C, $0000, $001A, $7000, $A82A;
  2823.     {$ENDC}
  2824. {
  2825.  * Setup
  2826. }
  2827. FUNCTION NAPrerollNoteChannel(na: NoteAllocator; noteChannel: NoteChannel): ComponentResult;
  2828.     {$IFC NOT GENERATINGCFM}
  2829.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  2830.     {$ENDC}
  2831. FUNCTION NAUnrollNoteChannel(na: NoteAllocator; noteChannel: NoteChannel): ComponentResult;
  2832.     {$IFC NOT GENERATINGCFM}
  2833.     INLINE $2F3C, $0004, $0008, $7000, $A82A;
  2834.     {$ENDC}
  2835. FUNCTION NAEngageNoteChannel(na: NoteAllocator; noteChannel: NoteChannel): ComponentResult;
  2836.     {$IFC NOT GENERATINGCFM}
  2837.     INLINE $2F3C, $0004, $0009, $7000, $A82A;
  2838.     {$ENDC}
  2839. FUNCTION NADisengageNoteChannel(na: NoteAllocator; noteChannel: NoteChannel; silenceNotes: LONGINT): ComponentResult;
  2840.     {$IFC NOT GENERATINGCFM}
  2841.     INLINE $2F3C, $0008, $000A, $7000, $A82A;
  2842.     {$ENDC}
  2843. FUNCTION NAGetNoteChannelState(na: NoteAllocator; noteChannel: NoteChannel; instrumentNumber: LONGINT; VAR state: Handle): ComponentResult;
  2844.     {$IFC NOT GENERATINGCFM}
  2845.     INLINE $2F3C, $000C, $0017, $7000, $A82A;
  2846.     {$ENDC}
  2847. FUNCTION NASetNoteChannelState(na: NoteAllocator; noteChannel: NoteChannel; instrumentNumber: LONGINT; state: Handle): ComponentResult;
  2848.     {$IFC NOT GENERATINGCFM}
  2849.     INLINE $2F3C, $000C, $0018, $7000, $A82A;
  2850.     {$ENDC}
  2851. FUNCTION NAResetNoteChannel(na: NoteAllocator; noteChannel: NoteChannel): ComponentResult;
  2852.     {$IFC NOT GENERATINGCFM}
  2853.     INLINE $2F3C, $0004, $000C, $7000, $A82A;
  2854.     {$ENDC}
  2855. FUNCTION NASetNoteChannelVolume(na: NoteAllocator; noteChannel: NoteChannel; volume: Fixed): ComponentResult;
  2856.     {$IFC NOT GENERATINGCFM}
  2857.     INLINE $2F3C, $0008, $000B, $7000, $A82A;
  2858.     {$ENDC}
  2859. FUNCTION NASetInstrument(na: NoteAllocator; noteChannel: NoteChannel; VAR instrumentData: InstrumentData): ComponentResult;
  2860.     {$IFC NOT GENERATINGCFM}
  2861.     INLINE $2F3C, $0008, $001E, $7000, $A82A;
  2862.     {$ENDC}
  2863. FUNCTION NASetFlatInstrument(na: NoteAllocator; noteChannel: NoteChannel; VAR flatInstrument: FlatInstrument): ComponentResult;
  2864.     {$IFC NOT GENERATINGCFM}
  2865.     INLINE $2F3C, $0008, $001D, $7000, $A82A;
  2866.     {$ENDC}
  2867. {
  2868.  * Control
  2869. }
  2870. FUNCTION NAPlayNote(na: NoteAllocator; noteChannel: NoteChannel; pitch: LONGINT; velocity: LONGINT): ComponentResult;
  2871.     {$IFC NOT GENERATINGCFM}
  2872.     INLINE $2F3C, $000C, $000D, $7000, $A82A;
  2873.     {$ENDC}
  2874. FUNCTION NASetController(na: NoteAllocator; noteChannel: NoteChannel; controllerNumber: LONGINT; controllerValue: LONGINT): ComponentResult;
  2875.     {$IFC NOT GENERATINGCFM}
  2876.     INLINE $2F3C, $000C, $000E, $7000, $A82A;
  2877.     {$ENDC}
  2878. FUNCTION NASetKnob(na: NoteAllocator; noteChannel: NoteChannel; knobNumber: LONGINT; knobValue: LONGINT): ComponentResult;
  2879.     {$IFC NOT GENERATINGCFM}
  2880.     INLINE $2F3C, $000C, $000F, $7000, $A82A;
  2881.     {$ENDC}
  2882. FUNCTION NAFindNoteChannelTone(na: NoteAllocator; noteChannel: NoteChannel; VAR td: ToneDescription; VAR instrumentNumber: LONGINT): ComponentResult;
  2883.     {$IFC NOT GENERATINGCFM}
  2884.     INLINE $2F3C, $000C, $0010, $7000, $A82A;
  2885.     {$ENDC}
  2886. FUNCTION NASetNoteChannelInstrument(na: NoteAllocator; noteChannel: NoteChannel; instrumentNumber: LONGINT): ComponentResult;
  2887.     {$IFC NOT GENERATINGCFM}
  2888.     INLINE $2F3C, $0008, $0011, $7000, $A82A;
  2889.     {$ENDC}
  2890. {$ENDC}
  2891. {$IFC FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED }
  2892. {
  2893.  * User Interface
  2894. }
  2895. FUNCTION NAPickInstrument(na: NoteAllocator; filterProc: ModalFilterUPP; prompt: StringPtr; VAR sd: ToneDescription; flags: LONGINT; refCon: LONGINT; VAR flatList: Ptr; VAR flatChoiceIndex: LONGINT): ComponentResult;
  2896.     {$IFC NOT GENERATINGCFM}
  2897.     INLINE $2F3C, $001C, $0012, $7000, $A82A;
  2898.     {$ENDC}
  2899. FUNCTION NAStuffToneDescription(na: NoteAllocator; gmNumber: LONGINT; VAR td: ToneDescription): ComponentResult;
  2900.     {$IFC NOT GENERATINGCFM}
  2901.     INLINE $2F3C, $0008, $001B, $7000, $A82A;
  2902.     {$ENDC}
  2903. FUNCTION NAPickArrangement(na: NoteAllocator; filterProc: ModalFilterUPP; prompt: StringPtr; partCount: LONGINT; VAR noteRequestList: NoteRequest; t: Track; songName: StringPtr): ComponentResult;
  2904.     {$IFC NOT GENERATINGCFM}
  2905.     INLINE $2F3C, $0018, $0013, $7000, $A82A;
  2906.     {$ENDC}
  2907. FUNCTION NACopyrightDialog(na: NoteAllocator; p: PicHandle; author: StringPtr; copyright: StringPtr; other: StringPtr; title: StringPtr; filterProc: ModalFilterUPP; refCon: LONGINT): ComponentResult;
  2908.     {$IFC NOT GENERATINGCFM}
  2909.     INLINE $2F3C, $001C, $001C, $7000, $A82A;
  2910.     {$ENDC}
  2911. {$ENDC}
  2912. {$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
  2913. {
  2914.  * Note Allocator interior views
  2915. }
  2916.  
  2917. TYPE
  2918.     NAStatPiecePtr = ^NAStatPiece;
  2919.     NAStatPiece = RECORD
  2920.         clientName:                Str31;
  2921.         synthesizerName:        Str31;
  2922.         part:                    LONGINT;
  2923.         midiChannel:            LONGINT;
  2924.         polyphony:                LONGINT;
  2925.         valid:                    LONGINT;
  2926.     END;
  2927.  
  2928.     NAStatPtr = ^NAStat;
  2929.     NAStat = RECORD
  2930.         pieceCount:                LONGINT;
  2931.         piece:                    ARRAY [0..63] OF NAStatPiece;
  2932.     END;
  2933.  
  2934. FUNCTION NAGetStatusBlock(na: NoteAllocator; VAR stat: NAStat): ComponentResult;
  2935.     {$IFC NOT GENERATINGCFM}
  2936.     INLINE $2F3C, $0004, $0014, $7000, $A82A;
  2937.     {$ENDC}
  2938. {
  2939. --------------------------
  2940.     Types
  2941. --------------------------
  2942. }
  2943.  
  2944. CONST
  2945.     kTuneQueueDepth                = 8;                            {  Deepest you can queue tune segments  }
  2946.  
  2947.  
  2948. TYPE
  2949.     TuneStatusPtr = ^TuneStatus;
  2950.     TuneStatus = RECORD
  2951.         tune:                    LongintPtr;                                {  currently playing tune  }
  2952.         tunePtr:                LongintPtr;                                {  position within currently playing piece  }
  2953.         time:                    TimeValue;                                {  current tune time  }
  2954.         queueCount:                INTEGER;                                {  how many pieces queued up?  }
  2955.         queueSpots:                INTEGER;                                {  How many more tunepieces can be queued  }
  2956.         queueTime:                TimeValue;                                {  How much time is queued up? (can be very inaccurate)  }
  2957.         reserved:                ARRAY [0..2] OF LONGINT;
  2958.     END;
  2959.  
  2960.  
  2961. CONST
  2962.     kStopTuneFade                = 1;                            {  do a quick, synchronous fadeout  }
  2963.     kStopTuneSustain            = 2;                            {  don't silece notes  }
  2964.     kStopTuneInstant            = 4;                            {  silence notes fast (else, decay them)  }
  2965.     kStopTuneReleaseChannels    = 8;                            {  afterwards, let the channels go  }
  2966.  
  2967.     kTuneSelect                    = 3;
  2968.     kTuneSetHeaderSelect        = 4;
  2969.     kTuneGetTimeBaseSelect        = 5;
  2970.     kTuneSetTimeScaleSelect        = 6;
  2971.     kTuneGetTimeScaleSelect        = 7;
  2972.     kTuneGetIndexedNoteChannelSelect = 8;
  2973.     kTuneDummy                    = 9;
  2974.     kTuneQueueSelect            = 10;
  2975.     kTuneInstantSelect            = 11;
  2976.     kTuneGetStatusSelect        = 12;
  2977.     kTuneStopSelect                = 13;
  2978.     kTuneResumeSelect            = 14;
  2979.     kTuneFlushSelect            = 15;
  2980.     kTuneSetVolumeSelect        = 16;
  2981.     kTuneGetVolumeSelect        = 17;
  2982.     kTunePrerollSelect            = 18;
  2983.     kTuneUnrollSelect            = 19;
  2984.     kTuneLastSelector            = 20;
  2985.  
  2986.  
  2987. TYPE
  2988.     TuneCallBackProcPtr = ProcPtr;  { PROCEDURE TuneCallBack((CONST)VAR status: TuneStatus; refCon: LONGINT); }
  2989.  
  2990.     TunePlayCallBackProcPtr = ProcPtr;  { PROCEDURE TunePlayCallBack(VAR event: LONGINT; seed: LONGINT; refCon: LONGINT); }
  2991.  
  2992.     TuneCallBackUPP = UniversalProcPtr;
  2993.     TunePlayCallBackUPP = UniversalProcPtr;
  2994.     TunePlayer                            = ComponentInstance;
  2995.  
  2996. CONST
  2997.     kMaxTunePlayerParts            = 32;
  2998.     kTunePlayerType                = 'tune';
  2999.  
  3000. {
  3001. --------------------------
  3002.     Prototypes
  3003. --------------------------
  3004. }
  3005. FUNCTION TuneSetHeader(tp: TunePlayer; VAR header: LONGINT): ComponentResult;
  3006.     {$IFC NOT GENERATINGCFM}
  3007.     INLINE $2F3C, $0004, $0004, $7000, $A82A;
  3008.     {$ENDC}
  3009. FUNCTION TuneGetTimeBase(tp: TunePlayer; VAR tb: TimeBase): ComponentResult;
  3010.     {$IFC NOT GENERATINGCFM}
  3011.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  3012.     {$ENDC}
  3013. FUNCTION TuneSetTimeScale(tp: TunePlayer; scale: TimeScale): ComponentResult;
  3014.     {$IFC NOT GENERATINGCFM}
  3015.     INLINE $2F3C, $0004, $0006, $7000, $A82A;
  3016.     {$ENDC}
  3017. FUNCTION TuneGetTimeScale(tp: TunePlayer; VAR scale: TimeScale): ComponentResult;
  3018.     {$IFC NOT GENERATINGCFM}
  3019.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  3020.     {$ENDC}
  3021. FUNCTION TuneGetIndexedNoteChannel(tp: TunePlayer; i: LONGINT; VAR nc: NoteChannel): ComponentResult;
  3022.     {$IFC NOT GENERATINGCFM}
  3023.     INLINE $2F3C, $0008, $0008, $7000, $A82A;
  3024.     {$ENDC}
  3025. {  Values for when to start.  }
  3026.  
  3027. CONST
  3028.     kTuneStartNow                = 1;                            {  start after buffer is implied  }
  3029.     kTuneDontClipNotes            = 2;                            {  allow notes to finish their durations outside sample  }
  3030.     kTuneExcludeEdgeNotes        = 4;                            {  dont play notes that start at end of tune  }
  3031.     kTuneStartNewMaster            = 16384;
  3032.  
  3033. FUNCTION TuneQueue(tp: TunePlayer; VAR tune: LONGINT; tuneRate: Fixed; tuneStartPosition: LONGINT; tuneStopPosition: LONGINT; queueFlags: LONGINT; callBackProc: TuneCallBackUPP; refCon: LONGINT): ComponentResult;
  3034.     {$IFC NOT GENERATINGCFM}
  3035.     INLINE $2F3C, $001C, $000A, $7000, $A82A;
  3036.     {$ENDC}
  3037. FUNCTION TuneInstant(tp: TunePlayer; VAR tune: LONGINT; tunePosition: LONGINT): ComponentResult;
  3038.     {$IFC NOT GENERATINGCFM}
  3039.     INLINE $2F3C, $0008, $000B, $7000, $A82A;
  3040.     {$ENDC}
  3041. FUNCTION TuneGetStatus(tp: TunePlayer; VAR status: TuneStatus): ComponentResult;
  3042.     {$IFC NOT GENERATINGCFM}
  3043.     INLINE $2F3C, $0004, $000C, $7000, $A82A;
  3044.     {$ENDC}
  3045. {  Values for when to start.  }
  3046.  
  3047. CONST
  3048.     kStopSustain                = 1;                            {  Leaves notes playing, not silent  }
  3049.     kStopFadeout                = 2;                            {  Does a synchronous fade-out  }
  3050.  
  3051. FUNCTION TuneStop(tp: TunePlayer; stopFlags: LONGINT): ComponentResult;
  3052.     {$IFC NOT GENERATINGCFM}
  3053.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  3054.     {$ENDC}
  3055. FUNCTION TuneResume(tp: TunePlayer): ComponentResult;
  3056.     {$IFC NOT GENERATINGCFM}
  3057.     INLINE $2F3C, $0000, $000E, $7000, $A82A;
  3058.     {$ENDC}
  3059. FUNCTION TuneFlush(tp: TunePlayer): ComponentResult;
  3060.     {$IFC NOT GENERATINGCFM}
  3061.     INLINE $2F3C, $0000, $000F, $7000, $A82A;
  3062.     {$ENDC}
  3063. FUNCTION TuneSetVolume(tp: TunePlayer; volume: Fixed): ComponentResult;
  3064.     {$IFC NOT GENERATINGCFM}
  3065.     INLINE $2F3C, $0004, $0010, $7000, $A82A;
  3066.     {$ENDC}
  3067. FUNCTION TuneGetVolume(tp: TunePlayer): ComponentResult;
  3068.     {$IFC NOT GENERATINGCFM}
  3069.     INLINE $2F3C, $0000, $0011, $7000, $A82A;
  3070.     {$ENDC}
  3071. FUNCTION TunePreroll(tp: TunePlayer): ComponentResult;
  3072.     {$IFC NOT GENERATINGCFM}
  3073.     INLINE $2F3C, $0000, $0012, $7000, $A82A;
  3074.     {$ENDC}
  3075. FUNCTION TuneUnroll(tp: TunePlayer): ComponentResult;
  3076.     {$IFC NOT GENERATINGCFM}
  3077.     INLINE $2F3C, $0000, $0013, $7000, $A82A;
  3078.     {$ENDC}
  3079.  
  3080. TYPE
  3081.     MusicOpWord                            = LONGINT;
  3082.     MusicOpWordPtr                        = ^LONGINT;
  3083. {
  3084.      QuickTime Music Track Event Formats:
  3085.  
  3086.     At this time, QuickTime music tracks support 5 different event types -- REST events,
  3087.     short NOTE events, short CONTROL events, short GENERAL events, Long NOTE events, 
  3088.     long CONTROL events, and variable GENERAL events.
  3089.  
  3090.         * REST Event (4 bytes/event):
  3091.     
  3092.             (0 0 0) (5-bit UNUSED) (24-bit Rest Duration)
  3093.         
  3094.         *†Short NOTE Events (4 bytes/event):
  3095.     
  3096.             (0 0 1) (5-bit Instrument) (6-bit Pitch) (7-bit Volume) (11-bit Duration)
  3097.         
  3098.             where:    Pitch is offset by 32 (Actual pitch = pitch field + 32)
  3099.  
  3100.         *†Short CONTROL Events (4 bytes/event):
  3101.     
  3102.             (0 1 0) (5-bit Instrument) (8-bit Controller) (1-bit UNUSED) (1-bit Sign) (7-bit MSB) (7-bit LSB)
  3103.                                                                          ( or 15-bit Signed Value)
  3104.         * Short GENERAL Event (4 bytes/event):
  3105.     
  3106.             (0 1 1) (1-bit UNUSED) (12-bit Sub-Type) (16-bit Value)
  3107.     
  3108.         * Long NOTE Events (8 bytes/event):
  3109.     
  3110.             (1 0 0 1) (12-bit Instrument) (1-bit UNUSED) (7-bit Pitch) (1-bit UNUSED) (7-bit Volume)
  3111.             (1 0) (8-bit UNUSED) (22-bit Duration)
  3112.         
  3113.         *†Long CONTROL Event (8 bytes/event):
  3114.         
  3115.             (1 0 1 0) (12-bit Instrument) (16-bit Value MSB) 
  3116.             (1 0) (14-bit Controller) (16-bit Value LSB)
  3117.     
  3118.         *†Long KNOB Event (8 bytes/event):
  3119.     
  3120.             (1 0 1 1) (12-bit Sub-Type) (16-bit Value MSB)
  3121.             (1 0) (14-bit KNOB) (16-bit Value LSB)
  3122.     
  3123.         *†Variable GENERAL Length Events (N bytes/event):
  3124.     
  3125.             (1 1 1 1) (12-bit Sub-Type) (16-bit Length)
  3126.                 :
  3127.             (32-bit Data values)
  3128.                 :
  3129.             (1 1) (14-bit UNUSED) (16-bit Length)
  3130.     
  3131.             where:    Length field is the number of LONG words in the record.
  3132.                     Lengths include the first and last long words (Minimum length = 2)
  3133.                 
  3134.     The following event type values have not been used yet and are reserved for 
  3135.     future expansion:
  3136.         
  3137.         * (1 0 0 0)        (8 bytes/event)
  3138.         * (1 1 0 0)        (N bytes/event)
  3139.         * (1 1 0 1)        (N bytes/event)
  3140.         * (1 1 1 0)        (N bytes/event)
  3141.         
  3142.     For all events, the following generalizations apply:
  3143.     
  3144.         -    All duration values are specified in Millisecond units.
  3145.         -     Pitch values are intended to map directly to the MIDI key numbers.
  3146.         -    Controllers from 0 to 127 correspond to the standard MIDI controllers.
  3147.             Controllers greater than 127 correspond to other controls (i.e., Pitch Bend, 
  3148.             Key Pressure, and Channel Pressure).    
  3149. }
  3150. {  Defines for the implemented music event data fields }
  3151.  
  3152. CONST
  3153.     kRestEventType                = $00000000;                    {  lower 3-bits  }
  3154.     kNoteEventType                = $00000001;                    {  lower 3-bits  }
  3155.     kControlEventType            = $00000002;                    {  lower 3-bits  }
  3156.     kMarkerEventType            = $00000003;                    {  lower 3-bits  }
  3157.     kUndefined1EventType        = $00000008;                    {  4-bits  }
  3158.     kXNoteEventType                = $00000009;                    {  4-bits  }
  3159.     kXControlEventType            = $0000000A;                    {  4-bits  }
  3160.     kKnobEventType                = $0000000B;                    {  4-bits  }
  3161.     kUndefined2EventType        = $0000000C;                    {  4-bits  }
  3162.     kUndefined3EventType        = $0000000D;                    {  4-bits  }
  3163.     kUndefined4EventType        = $0000000E;                    {  4-bits  }
  3164.     kGeneralEventType            = $0000000F;                    {  4-bits  }
  3165.     kXEventLengthBits            = $00000002;                    {  2 bits: indicates 8-byte event record  }
  3166.     kGeneralEventLengthBits        = $00000003;                    {  2 bits: indicates variable length event record  }
  3167.     kEventLen                    = 1;                            {  length of events in long words  }
  3168.     kXEventLen                    = 2;
  3169.     kRestEventLen                = 1;                            {  length of events in long words  }
  3170.     kNoteEventLen                = 1;
  3171.     kControlEventLen            = 1;
  3172.     kMarkerEventLen                = 1;
  3173.     kXNoteEventLen                = 2;
  3174.     kXControlEventLen            = 2;
  3175.     kGeneralEventLen            = 2;                            {  2 or more, however  }
  3176.                                                                 {  Universal Event Defines }
  3177.     kEventLengthFieldPos        = 30;                            {  by looking at these two bits of the 1st or last word               }
  3178.     kEventLengthFieldWidth        = 2;                            {  of an event you can determine the event length                       }
  3179.                                                                 {  length field: 0 & 1 => 1 long; 2 => 2 longs; 3 => variable length  }
  3180.     kEventTypeFieldPos            = 29;                            {  event type field for short events  }
  3181.     kEventTypeFieldWidth        = 3;                            {  short type is 3 bits  }
  3182.     kXEventTypeFieldPos            = 28;                            {  event type field for extended events  }
  3183.     kXEventTypeFieldWidth        = 4;                            {  extended type is 4 bits  }
  3184.     kEventInstrumentFieldPos    = 24;
  3185.     kEventInstrumentFieldWidth    = 5;
  3186.     kXEventInstrumentFieldPos    = 16;                            {  in the 1st long word  }
  3187.     kXEventInstrumentFieldWidth    = 12;                            {  Rest Events }
  3188.     kRestEventDurationFieldPos    = 0;
  3189.     kRestEventDurationFieldWidth = 24;
  3190.     kRestEventDurationMax        = $00FFFFFF;                    {  Note Events }
  3191.     kNoteEventPitchFieldPos        = 18;
  3192.     kNoteEventPitchFieldWidth    = 6;
  3193.     kNoteEventPitchOffset        = 32;                            {  add to value in pitch field to get actual pitch  }
  3194.     kNoteEventVolumeFieldPos    = 11;
  3195.     kNoteEventVolumeFieldWidth    = 7;
  3196.     kNoteEventVolumeOffset        = 0;                            {  add to value in volume field to get actual volume  }
  3197.     kNoteEventDurationFieldPos    = 0;
  3198.     kNoteEventDurationFieldWidth = 11;
  3199.     kNoteEventDurationMax        = $000007FF;
  3200.     kXNoteEventPitchFieldPos    = 0;                            {  in the 1st long word  }
  3201.     kXNoteEventPitchFieldWidth    = 16;
  3202.     kXNoteEventDurationFieldPos    = 0;                            {  in the 2nd long word  }
  3203.     kXNoteEventDurationFieldWidth = 22;
  3204.     kXNoteEventDurationMax        = $003FFFFF;
  3205.     kXNoteEventVolumeFieldPos    = 22;                            {  in the 2nd long word  }
  3206.     kXNoteEventVolumeFieldWidth    = 7;                            {  Control Events }
  3207.     kControlEventControllerFieldPos = 16;
  3208.     kControlEventControllerFieldWidth = 8;
  3209.     kControlEventValueFieldPos    = 0;
  3210.     kControlEventValueFieldWidth = 16;
  3211.     kXControlEventControllerFieldPos = 0;                        {  in the 2nd long word  }
  3212.     kXControlEventControllerFieldWidth = 16;
  3213.     kXControlEventValueFieldPos    = 0;                            {  in the 1st long word  }
  3214.     kXControlEventValueFieldWidth = 16;                            {  Knob Events }
  3215.     kKnobEventValueHighFieldPos    = 0;                            {  1st long word  }
  3216.     kKnobEventValueHighFieldWidth = 16;
  3217.     kKnobEventKnobFieldPos        = 16;                            {  2nd long word  }
  3218.     kKnobEventKnobFieldWidth    = 14;
  3219.     kKnobEventValueLowFieldPos    = 0;                            {  2nd long word  }
  3220.     kKnobEventValueLowFieldWidth = 16;                            {  Marker Events }
  3221.     kMarkerEventSubtypeFieldPos    = 16;
  3222.     kMarkerEventSubtypeFieldWidth = 8;
  3223.     kMarkerEventValueFieldPos    = 0;
  3224.     kMarkerEventValueFieldWidth    = 16;                            {  General Events }
  3225.     kGeneralEventSubtypeFieldPos = 16;                            {  in the last long word  }
  3226.     kGeneralEventSubtypeFieldWidth = 14;
  3227.     kGeneralEventLengthFieldPos    = 0;                            {  in the 1st & last long words  }
  3228.     kGeneralEventLengthFieldWidth = 16;
  3229.  
  3230. {  General Event Defined Types }
  3231.     kGeneralEventNoteRequest    = 1;                            {  Encapsulates NoteRequest data structure  }
  3232.     kGeneralEventInstrument        = 2;                            {  Encapsulates poly, typical poly, followed by InstrumentData record  }
  3233.     kGeneralEventFlatInstrument    = 3;                            {  Encapsulates poly, typical poly, followed by FlatInstrument record  }
  3234.     kGeneralEventPartName        = 4;                            {  Brackets 2 longs follwed by a pascal string (padded to long alignment)  }
  3235.     kGeneralEventPartKey        = 5;                            {  Brackets 2 longs  }
  3236.  
  3237.     TCSourceRefNameType            = 'name';
  3238.  
  3239.     tcDropFrame                    = $01;
  3240.     tc24HourMax                    = $02;
  3241.     tcNegTimesOK                = $04;
  3242.     tcCounter                    = $08;
  3243.  
  3244.  
  3245. TYPE
  3246.     TimeCodeDefPtr = ^TimeCodeDef;
  3247.     TimeCodeDef = RECORD
  3248.         flags:                    LONGINT;                                {  drop-frame, etc. }
  3249.         fTimeScale:                TimeScale;                                {  time scale of frameDuration (eg. 2997) }
  3250.         frameDuration:            TimeValue;                                {  duration of each frame (eg. 100) }
  3251.         numFrames:                SInt8;                                    {  frames/sec for timecode (eg. 30) OR frames/tick for counter mode }
  3252.         padding:                SInt8;                                    {  unused padding byte }
  3253.     END;
  3254.  
  3255.  
  3256. CONST
  3257.     tctNegFlag                    = $80;                            {  negative bit is in minutes }
  3258.  
  3259.  
  3260. TYPE
  3261.     TimeCodeTimePtr = ^TimeCodeTime;
  3262.     TimeCodeTime = RECORD
  3263.         hours:                    SInt8;
  3264.         minutes:                SInt8;
  3265.         seconds:                SInt8;
  3266.         frames:                    SInt8;
  3267.     END;
  3268.  
  3269.     TimeCodeCounterPtr = ^TimeCodeCounter;
  3270.     TimeCodeCounter = RECORD
  3271.         counter:                LONGINT;
  3272.     END;
  3273.  
  3274.     TimeCodeRecordPtr = ^TimeCodeRecord;
  3275.     TimeCodeRecord = RECORD
  3276.         CASE INTEGER OF
  3277.         0: (
  3278.             t:                    TimeCodeTime;
  3279.             );
  3280.         1: (
  3281.             c:                    TimeCodeCounter;
  3282.             );
  3283.     END;
  3284.  
  3285.     TimeCodeDescriptionPtr = ^TimeCodeDescription;
  3286.     TimeCodeDescription = RECORD
  3287.         descSize:                LONGINT;                                {  standard sample description header }
  3288.         dataFormat:                LONGINT;
  3289.         resvd1:                    LONGINT;
  3290.         resvd2:                    INTEGER;
  3291.         dataRefIndex:            INTEGER;
  3292.         flags:                    LONGINT;                                {  timecode specific stuff }
  3293.         timeCodeDef:            TimeCodeDef;
  3294.         srcRef:                    ARRAY [0..0] OF LONGINT;
  3295.     END;
  3296.  
  3297.     TimeCodeDescriptionHandle            = ^TimeCodeDescriptionPtr;
  3298.  
  3299. CONST
  3300.     tcdfShowTimeCode            = $01;
  3301.  
  3302.     kTCGetCurrentTimeCodeSelect    = 257;
  3303.     kTCGetTimeCodeAtTimeSelect    = 258;
  3304.     kTCTimeCodeToStringSelect    = 259;
  3305.     kTCTimeCodeToFrameNumberSelect = 260;
  3306.     kTCFrameNumberToTimeCodeSelect = 261;
  3307.     kTCGetSourceRefSelect        = 262;
  3308.     kTCSetSourceRefSelect        = 263;
  3309.     kTCSetTimeCodeFlagsSelect    = 264;
  3310.     kTCGetTimeCodeFlagsSelect    = 265;
  3311.     kTCSetDisplayOptionsSelect    = 266;
  3312.     kTCGetDisplayOptionsSelect    = 267;
  3313.  
  3314.  
  3315. TYPE
  3316.     TCTextOptionsPtr = ^TCTextOptions;
  3317.     TCTextOptions = RECORD
  3318.         txFont:                    INTEGER;
  3319.         txFace:                    INTEGER;
  3320.         txSize:                    INTEGER;
  3321.         foreColor:                RGBColor;
  3322.         backColor:                RGBColor;
  3323.     END;
  3324.  
  3325. FUNCTION TCGetCurrentTimeCode(mh: MediaHandler; VAR frameNum: LONGINT; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord; VAR srcRefH: UserData): HandlerError;
  3326.     {$IFC NOT GENERATINGCFM}
  3327.     INLINE $2F3C, $0010, $0101, $7000, $A82A;
  3328.     {$ENDC}
  3329. FUNCTION TCGetTimeCodeAtTime(mh: MediaHandler; mediaTime: TimeValue; VAR frameNum: LONGINT; VAR tcdef: TimeCodeDef; VAR tcdata: TimeCodeRecord; VAR srcRefH: UserData): HandlerError;
  3330.     {$IFC NOT GENERATINGCFM}
  3331.     INLINE $2F3C, $0014, $0102, $7000, $A82A;
  3332.     {$ENDC}
  3333. FUNCTION TCTimeCodeToFrameNumber(mh: MediaHandler; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord; VAR frameNumber: LONGINT): HandlerError;
  3334.     {$IFC NOT GENERATINGCFM}
  3335.     INLINE $2F3C, $000C, $0104, $7000, $A82A;
  3336.     {$ENDC}
  3337. FUNCTION TCFrameNumberToTimeCode(mh: MediaHandler; frameNumber: LONGINT; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord): HandlerError;
  3338.     {$IFC NOT GENERATINGCFM}
  3339.     INLINE $2F3C, $000C, $0105, $7000, $A82A;
  3340.     {$ENDC}
  3341. FUNCTION TCTimeCodeToString(mh: MediaHandler; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord; tcStr: StringPtr): HandlerError;
  3342.     {$IFC NOT GENERATINGCFM}
  3343.     INLINE $2F3C, $000C, $0103, $7000, $A82A;
  3344.     {$ENDC}
  3345. FUNCTION TCGetSourceRef(mh: MediaHandler; tcdH: TimeCodeDescriptionHandle; VAR srefH: UserData): HandlerError;
  3346.     {$IFC NOT GENERATINGCFM}
  3347.     INLINE $2F3C, $0008, $0106, $7000, $A82A;
  3348.     {$ENDC}
  3349. FUNCTION TCSetSourceRef(mh: MediaHandler; tcdH: TimeCodeDescriptionHandle; srefH: UserData): HandlerError;
  3350.     {$IFC NOT GENERATINGCFM}
  3351.     INLINE $2F3C, $0008, $0107, $7000, $A82A;
  3352.     {$ENDC}
  3353. FUNCTION TCSetTimeCodeFlags(mh: MediaHandler; flags: LONGINT; flagsMask: LONGINT): HandlerError;
  3354.     {$IFC NOT GENERATINGCFM}
  3355.     INLINE $2F3C, $0008, $0108, $7000, $A82A;
  3356.     {$ENDC}
  3357. FUNCTION TCGetTimeCodeFlags(mh: MediaHandler; VAR flags: LONGINT): HandlerError;
  3358.     {$IFC NOT GENERATINGCFM}
  3359.     INLINE $2F3C, $0004, $0109, $7000, $A82A;
  3360.     {$ENDC}
  3361. FUNCTION TCSetDisplayOptions(mh: MediaHandler; textOptions: TCTextOptionsPtr): HandlerError;
  3362.     {$IFC NOT GENERATINGCFM}
  3363.     INLINE $2F3C, $0004, $010A, $7000, $A82A;
  3364.     {$ENDC}
  3365. FUNCTION TCGetDisplayOptions(mh: MediaHandler; textOptions: TCTextOptionsPtr): HandlerError;
  3366.     {$IFC NOT GENERATINGCFM}
  3367.     INLINE $2F3C, $0004, $010B, $7000, $A82A;
  3368.     {$ENDC}
  3369. {  UPP call backs  }
  3370.  
  3371. CONST
  3372.     uppSGDataProcInfo = $003BFFE0;
  3373.     uppSGModalFilterProcInfo = $00003FD0;
  3374.     uppSGGrabProcInfo = $00000EF0;
  3375.     uppSGGrabCompleteProcInfo = $00003EF0;
  3376.     uppSGDisplayProcInfo = $0000FEF0;
  3377.     uppSGCompressProcInfo = $00000EF0;
  3378.     uppSGCompressCompleteProcInfo = $0000FEF0;
  3379.     uppSGAddFrameProcInfo = $0003FEF0;
  3380.     uppSGTransferFrameProcInfo = $0000FEF0;
  3381.     uppSGGrabCompressCompleteProcInfo = $0000FFF0;
  3382.     uppSGDisplayCompressProcInfo = $0003FFF0;
  3383.     uppVdigIntProcInfo = $000003C0;
  3384.     uppSCModalFilterProcInfo = $00003FD0;
  3385.     uppSCModalHookProcInfo = $00003EE0;
  3386.     uppDataHCompletionProcInfo = $00000BC0;
  3387.     uppMusicMIDISendProcInfo = $00000FF0;
  3388.     uppMusicMIDIReadHookProcInfo = $000003F0;
  3389.     uppTuneCallBackProcInfo = $000003C0;
  3390.     uppTunePlayCallBackProcInfo = $00000FC0;
  3391.  
  3392. FUNCTION NewSGDataProc(userRoutine: SGDataProcPtr): SGDataUPP;
  3393.     {$IFC NOT GENERATINGCFM }
  3394.     INLINE $2E9F;
  3395.     {$ENDC}
  3396.  
  3397. FUNCTION NewSGModalFilterProc(userRoutine: SGModalFilterProcPtr): SGModalFilterUPP;
  3398.     {$IFC NOT GENERATINGCFM }
  3399.     INLINE $2E9F;
  3400.     {$ENDC}
  3401.  
  3402. FUNCTION NewSGGrabProc(userRoutine: SGGrabProcPtr): SGGrabUPP;
  3403.     {$IFC NOT GENERATINGCFM }
  3404.     INLINE $2E9F;
  3405.     {$ENDC}
  3406.  
  3407. FUNCTION NewSGGrabCompleteProc(userRoutine: SGGrabCompleteProcPtr): SGGrabCompleteUPP;
  3408.     {$IFC NOT GENERATINGCFM }
  3409.     INLINE $2E9F;
  3410.     {$ENDC}
  3411.  
  3412. FUNCTION NewSGDisplayProc(userRoutine: SGDisplayProcPtr): SGDisplayUPP;
  3413.     {$IFC NOT GENERATINGCFM }
  3414.     INLINE $2E9F;
  3415.     {$ENDC}
  3416.  
  3417. FUNCTION NewSGCompressProc(userRoutine: SGCompressProcPtr): SGCompressUPP;
  3418.     {$IFC NOT GENERATINGCFM }
  3419.     INLINE $2E9F;
  3420.     {$ENDC}
  3421.  
  3422. FUNCTION NewSGCompressCompleteProc(userRoutine: SGCompressCompleteProcPtr): SGCompressCompleteUPP;
  3423.     {$IFC NOT GENERATINGCFM }
  3424.     INLINE $2E9F;
  3425.     {$ENDC}
  3426.  
  3427. FUNCTION NewSGAddFrameProc(userRoutine: SGAddFrameProcPtr): SGAddFrameUPP;
  3428.     {$IFC NOT GENERATINGCFM }
  3429.     INLINE $2E9F;
  3430.     {$ENDC}
  3431.  
  3432. FUNCTION NewSGTransferFrameProc(userRoutine: SGTransferFrameProcPtr): SGTransferFrameUPP;
  3433.     {$IFC NOT GENERATINGCFM }
  3434.     INLINE $2E9F;
  3435.     {$ENDC}
  3436.  
  3437. FUNCTION NewSGGrabCompressCompleteProc(userRoutine: SGGrabCompressCompleteProcPtr): SGGrabCompressCompleteUPP;
  3438.     {$IFC NOT GENERATINGCFM }
  3439.     INLINE $2E9F;
  3440.     {$ENDC}
  3441.  
  3442. FUNCTION NewSGDisplayCompressProc(userRoutine: SGDisplayCompressProcPtr): SGDisplayCompressUPP;
  3443.     {$IFC NOT GENERATINGCFM }
  3444.     INLINE $2E9F;
  3445.     {$ENDC}
  3446.  
  3447. FUNCTION NewVdigIntProc(userRoutine: VdigIntProcPtr): VdigIntUPP;
  3448.     {$IFC NOT GENERATINGCFM }
  3449.     INLINE $2E9F;
  3450.     {$ENDC}
  3451.  
  3452. FUNCTION NewSCModalFilterProc(userRoutine: SCModalFilterProcPtr): SCModalFilterUPP;
  3453.     {$IFC NOT GENERATINGCFM }
  3454.     INLINE $2E9F;
  3455.     {$ENDC}
  3456.  
  3457. FUNCTION NewSCModalHookProc(userRoutine: SCModalHookProcPtr): SCModalHookUPP;
  3458.     {$IFC NOT GENERATINGCFM }
  3459.     INLINE $2E9F;
  3460.     {$ENDC}
  3461.  
  3462. FUNCTION NewDataHCompletionProc(userRoutine: DataHCompletionProcPtr): DataHCompletionUPP;
  3463.     {$IFC NOT GENERATINGCFM }
  3464.     INLINE $2E9F;
  3465.     {$ENDC}
  3466.  
  3467. FUNCTION NewMusicMIDISendProc(userRoutine: MusicMIDISendProcPtr): MusicMIDISendUPP;
  3468.     {$IFC NOT GENERATINGCFM }
  3469.     INLINE $2E9F;
  3470.     {$ENDC}
  3471.  
  3472. FUNCTION NewMusicMIDIReadHookProc(userRoutine: MusicMIDIReadHookProcPtr): MusicMIDIReadHookUPP;
  3473.     {$IFC NOT GENERATINGCFM }
  3474.     INLINE $2E9F;
  3475.     {$ENDC}
  3476.  
  3477. FUNCTION NewTuneCallBackProc(userRoutine: TuneCallBackProcPtr): TuneCallBackUPP;
  3478.     {$IFC NOT GENERATINGCFM }
  3479.     INLINE $2E9F;
  3480.     {$ENDC}
  3481.  
  3482. FUNCTION NewTunePlayCallBackProc(userRoutine: TunePlayCallBackProcPtr): TunePlayCallBackUPP;
  3483.     {$IFC NOT GENERATINGCFM }
  3484.     INLINE $2E9F;
  3485.     {$ENDC}
  3486.  
  3487. FUNCTION CallSGDataProc(c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT; chRefCon: LONGINT; time: TimeValue; writeType: INTEGER; refCon: LONGINT; userRoutine: SGDataUPP): OSErr;
  3488.     {$IFC NOT GENERATINGCFM}
  3489.     INLINE $205F, $4E90;
  3490.     {$ENDC}
  3491.  
  3492. FUNCTION CallSGModalFilterProc(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refCon: LONGINT; userRoutine: SGModalFilterUPP): BOOLEAN;
  3493.     {$IFC NOT GENERATINGCFM}
  3494.     INLINE $205F, $4E90;
  3495.     {$ENDC}
  3496.  
  3497. FUNCTION CallSGGrabProc(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT; userRoutine: SGGrabUPP): ComponentResult;
  3498.     {$IFC NOT GENERATINGCFM}
  3499.     INLINE $205F, $4E90;
  3500.     {$ENDC}
  3501.  
  3502. FUNCTION CallSGGrabCompleteProc(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; refCon: LONGINT; userRoutine: SGGrabCompleteUPP): ComponentResult;
  3503.     {$IFC NOT GENERATINGCFM}
  3504.     INLINE $205F, $4E90;
  3505.     {$ENDC}
  3506.  
  3507. FUNCTION CallSGDisplayProc(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT; userRoutine: SGDisplayUPP): ComponentResult;
  3508.     {$IFC NOT GENERATINGCFM}
  3509.     INLINE $205F, $4E90;
  3510.     {$ENDC}
  3511.  
  3512. FUNCTION CallSGCompressProc(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT; userRoutine: SGCompressUPP): ComponentResult;
  3513.     {$IFC NOT GENERATINGCFM}
  3514.     INLINE $205F, $4E90;
  3515.     {$ENDC}
  3516.  
  3517. FUNCTION CallSGCompressCompleteProc(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; VAR ci: SGCompressInfo; refCon: LONGINT; userRoutine: SGCompressCompleteUPP): ComponentResult;
  3518.     {$IFC NOT GENERATINGCFM}
  3519.     INLINE $205F, $4E90;
  3520.     {$ENDC}
  3521.  
  3522. FUNCTION CallSGAddFrameProc(c: SGChannel; bufferNum: INTEGER; atTime: TimeValue; scale: TimeScale; {CONST}VAR ci: SGCompressInfo; refCon: LONGINT; userRoutine: SGAddFrameUPP): ComponentResult;
  3523.     {$IFC NOT GENERATINGCFM}
  3524.     INLINE $205F, $4E90;
  3525.     {$ENDC}
  3526.  
  3527. FUNCTION CallSGTransferFrameProc(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT; userRoutine: SGTransferFrameUPP): ComponentResult;
  3528.     {$IFC NOT GENERATINGCFM}
  3529.     INLINE $205F, $4E90;
  3530.     {$ENDC}
  3531.  
  3532. FUNCTION CallSGGrabCompressCompleteProc(c: SGChannel; VAR done: BOOLEAN; VAR ci: SGCompressInfo; VAR t: TimeRecord; refCon: LONGINT; userRoutine: SGGrabCompressCompleteUPP): ComponentResult;
  3533.     {$IFC NOT GENERATINGCFM}
  3534.     INLINE $205F, $4E90;
  3535.     {$ENDC}
  3536.  
  3537. FUNCTION CallSGDisplayCompressProc(c: SGChannel; dataPtr: Ptr; desc: ImageDescriptionHandle; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT; userRoutine: SGDisplayCompressUPP): ComponentResult;
  3538.     {$IFC NOT GENERATINGCFM}
  3539.     INLINE $205F, $4E90;
  3540.     {$ENDC}
  3541.  
  3542. PROCEDURE CallVdigIntProc(flags: LONGINT; refcon: LONGINT; userRoutine: VdigIntUPP);
  3543.     {$IFC NOT GENERATINGCFM}
  3544.     INLINE $205F, $4E90;
  3545.     {$ENDC}
  3546.  
  3547. FUNCTION CallSCModalFilterProc(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refcon: LONGINT; userRoutine: SCModalFilterUPP): BOOLEAN;
  3548.     {$IFC NOT GENERATINGCFM}
  3549.     INLINE $205F, $4E90;
  3550.     {$ENDC}
  3551.  
  3552. FUNCTION CallSCModalHookProc(theDialog: DialogPtr; itemHit: INTEGER; params: UNIV Ptr; refcon: LONGINT; userRoutine: SCModalHookUPP): INTEGER;
  3553.     {$IFC NOT GENERATINGCFM}
  3554.     INLINE $205F, $4E90;
  3555.     {$ENDC}
  3556.  
  3557. PROCEDURE CallDataHCompletionProc(request: Ptr; refcon: LONGINT; err: OSErr; userRoutine: DataHCompletionUPP);
  3558.     {$IFC NOT GENERATINGCFM}
  3559.     INLINE $205F, $4E90;
  3560.     {$ENDC}
  3561.  
  3562. FUNCTION CallMusicMIDISendProc(self: MusicComponent; refCon: LONGINT; VAR mmp: MusicMIDIPacket; userRoutine: MusicMIDISendUPP): ComponentResult;
  3563.     {$IFC NOT GENERATINGCFM}
  3564.     INLINE $205F, $4E90;
  3565.     {$ENDC}
  3566.  
  3567. FUNCTION CallMusicMIDIReadHookProc(VAR mp: MusicMIDIPacket; myRefCon: LONGINT; userRoutine: MusicMIDIReadHookUPP): ComponentResult;
  3568.     {$IFC NOT GENERATINGCFM}
  3569.     INLINE $205F, $4E90;
  3570.     {$ENDC}
  3571.  
  3572. PROCEDURE CallTuneCallBackProc({CONST}VAR status: TuneStatus; refCon: LONGINT; userRoutine: TuneCallBackUPP);
  3573.     {$IFC NOT GENERATINGCFM}
  3574.     INLINE $205F, $4E90;
  3575.     {$ENDC}
  3576.  
  3577. PROCEDURE CallTunePlayCallBackProc(VAR event: LONGINT; seed: LONGINT; refCon: LONGINT; userRoutine: TunePlayCallBackUPP);
  3578.     {$IFC NOT GENERATINGCFM}
  3579.     INLINE $205F, $4E90;
  3580.     {$ENDC}
  3581. {$ENDC}
  3582. {$ALIGN RESET}
  3583. {$POP}
  3584.  
  3585. {$SETC UsingIncludes := QuickTimeComponentsIncludes}
  3586.  
  3587. {$ENDC} {__QUICKTIMECOMPONENTS__}
  3588.  
  3589. {$IFC NOT UsingIncludes}
  3590.  END.
  3591. {$ENDC}
  3592.